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بسم الله الرحمن الرحيم 


Visual Basic 
الجزء الاول‎ 
الاساسيات‎ 
الفصل الاول‎ 


Visual Basic 

. تختلف وجهات النظر بين 8251٤‏ اةاءاا هل هي 
عبارة عن مكتبة من ٤‏ أكة6 اھاءا۷ برنامج تصميم نوافذ ام منتج متكامل؟ تقنياء 
Basic for Application‏ اVisua‏ -المكتبات توفر عدة اوامر برمجية متكاملة مع ابنتها 
لغة برمجة اوج6 اهاءا۷ . الا ان المتعارف عليه بين المبرمجين هو ان ۷8۸ تختصر 
وبرنامج تصميم نوافذ ومكتبات تشغيلية» أي باختصار هو منتج متكامل . لذلك» عندما 
فقي هذا الكتاب فانني اقصد جميع التعريفات السابقةء فلو ›أئة8 اقuءأ۷‏ اتحدث عن 
ولو ٣AS1ظ‏ فانني اقصد اللغة الحنونة ٤أئة8‏ اقuاءأ۷‏ ذات مزايا لغة 
التشغيليةء ولو ٤أئة8‏ اةuءا۷‏ فانني المح الى مكتبات ة6 اقاءا۷ دوال واجراءات 
آما في الفقرة التالية - فانني- عأكة8 اقuءأ۷‏ تطرقت الى بيئة التطوير المتكاملة ل 
اقصد برنامج تصميم النوافذ. 
٤۳۴]بيئة‏ التطوير المتكاملة 
Windows‏ برامجك ومشاريعك تستطيع انجازها باستخدام ابسط برنامج يأتي مع 
وللّه الحمد- لم اقابل ذلك الشخص الذي-. الا انني 4ةمعأهل والذي يدعى 
Basic‏ اVisua‏ . لان Basic‏ اVisuaآي‏ یصمم برنامج ینفذ تحت ۵4اه یستخدم ال 
يوفر لك ادوات في قمة الروعة مجتمعة تحت مسمى بيئة التطوير المتكاملة 
- توفر لك آل ما تحتاحه Integrated Development Environment -رصږڏتiخت 19E‏ 
خمس نجوم - اآثر م ن-لتصميم نوافذ وكتابة اآواد برامجحك . بل تقدم لك خدمات 
> ادارة ملفات مشروعك. تحرير القوائم. تعديل 06199١9‏ ذلك. آخدمة التنقيیح 
.- 1 وإنشاء قواعد البيانات ... الخ شكل 
3 
Basic‏ اVisua:‏ بيئة التطوير المتكاملة ل .1- 1 شكل 
- فمن الضروري التمعن في ۷/85 أي لم تستخدم اذا آنت جديدا على هذه البيئة 
آلمات هذا الفصل بالذ ات والا فانك لن تدل الطرق المؤدية الى ساحة العمل . 
على ما اعتقد -الطرق ستكون نوافذ بيئة التطوير » والعمل هو السبب الذي جعلك 
تقراً هذا الكتاب. 
> تحتوي بيئة التطوير على الكثير من النوافذ المحضونة1- 1 آما تلاحظ في شكل 
ومجموعات من الازرار تدعی كuا"ع«‏ والعدید من القوائم Child Windows‏ با 
> واليك يا سيدي تفاصيلها: ٠٠0١52۲١‏ اشرطة الادوات 
نوافذ بينة التطوير المتكاماة 
الاصدار الخامس فانتقل الى فقرة "نافذة ›أئة8 اهاءا۷ اذا آنت من جيل مبرمجي 
" لانه لا يوجد أي شئ جديد اوضحه لك هنا. اما ان آنت ۷1W‏ ة0 عرض البيانات 
من الاجي ال الاقدم فاول شئ قد يشد انتباهك هو أن النافذة الرئيسية لبيئة 
Document Interface‏ عeاtipاMu‏ -التطویر اصبحت من النوع متعدد المستندات 
> وستلاحظ اشتمالها على نوافذ جديدة . بالاضافة إلى تطوير بعض 101 تختصر 
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النوافذ السابقة نافذة مستكشف المشروع او الخصائص . واول ناق ذة سنبدأً بها 
هي من النوافذ الجديدة: 
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New Project‏ iافذة‏ مشروع جدید 

لاول مرة. فان لهذه النافذة احتمال أ8 اهاءأ۷ عندما تقوم بتشغيل منصة العمل 
مؤاد للظهور. فعن طريقها تستطيع الاختيار بين أنواع عدة من المشاريع | 

ت۾ Standard EXE‏ .... |lلخ.‏ حدد gillع ActiveX DLL «ActiveX EXE «Standard EXE‏ 
]. فالقاعدة السائدة لجمیع N۲۴۴۸‏ عاو اضغط على المفتاح | ۸١٤ص0‏ انقر على الزر 
ولن اشذ عن t١2 ٤×٤‏ التعريفية تبدأً الشرح دائما بالنوع 825٤‏ اهاء۷ أكتب 
هذه القاعدة.» فانت لا تريد معرفة طريقة طبخ الكبسة قبل ان تتعلم قلي البيض! 
اةuء۷i‏ اذا أتت هذه النافذة تسبب لك ازعاج -ولو بسيط- في آل مرة تشغل فيها 
Don show this‏ . تستطیع الغاء فكرة ظهورها عن طریق تحدید الخیار 8a٤‏ 
الموجود في اسفلها حتى لا تعكر مزاجك. وتكون رفيقا ني dialog in the fUÎUreE‏ 
حتى نهاية الكتاب. 

ملاحظة: إذا لم يرق لك هذا التغيير» واردت العودة إلى الوضع السابق» فاختر 

. ومن مربع الحوار الذي يظهر كاه ۲6 من قائمة ١5‏ هام0 ...الأمر 

Prompt o‏ . وانقر على الخیار Environ me€N†‏ امامك اختر تبویب 

.project 

Form Designer‏ iافذۃ‏ مصمم النماذج 

منذ ٤أكة8B‏ اقuءا۷‏ . وهي اشهر نو افذ عأئة8 اةuاءأ۷‏ هذه النافذة تعتبر سر نجاح 

. عن طريق هذه النافذة تقوم بعملية ۴١١۳١١1‏ الاصدار الاول مع العنوان الابتدائي لها 
تصميم واجهة برنامجك اما بتعديل خصائصها او وضع باقة ادوات عليها باستخدام 
ال۷ مبينة لك قوة ونجاح فكرة لغات البرمجة المرئية #كuاه«‏ الفأرة 

. فقد انتھی عصر تصمیم الشاشات بالاآواد |و تعليlaٽLanguages Programming‏ 
ئم واشرطة التسجیل . 5.25 آما آنا نفعل في زمن اقراص 13٩0۲0‏ الماآرو 
طريقة وضع الادوات على نافذة النموذج اشبه ما تكون بعملية رشم مربعات آما 

. المزيد ايضاء عمليات التحرير آالنسخ واللصق و القص "ات۴ في برنامج الرسام 
مدعومة على جميع الادوات التي تضعما. 

ملاحظة: نافذة النموذج هي اسم مختصر من نافذة مصمم التماذج والمقصد 

واحد. لذلك. ستلاحظ انني استخدم المصطلح نافذة النموذج قي 

آآفة ارجاء الكتاب . 
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×0 طام ص ۲تافذة صندوق الادوات 

بعد ان تظهر لنا نافذة النموذج السابقةء فان شهوة وضع الادوات عليها تصل الى 
التي 2- 1 شکل ٠0٥0150×‏ قمتها. والادوات موجودة في نافذة صندوق الادوات 

ölsİÎVisual Basic‏ قياسية مدمجة في جميع برامجك المصممة تحت . 20 تعرض لك 
-مازال الوقت ءاما†Con‏ ×عActiv‏ وقد تحتوي على مجموعة ادوات اضافية تدعى 
Buttonsزر‏ » 21 أداة الا انه يوجد 20مبكرا جدا للحديث ع نها. مع ان الادوات عددها 
هذا الزر الاضافي موجود في الرآن العلوي الايسر من الادوات على شكل مؤشر 
وظيفته الاساسية الغاء عملية طلب رسم أداة . لا تشغل نفسك به آثيرا» ۲٥†"iهP‏ 
فهو يضفط نفسه تلقائيا بمجرد انتهائك من عملية رسم او وضع الأداة على نافذة 
النموذج. 

:۲٥۵۱50×‏ صندوق الادوات .2- 1 شکل 

اذا أن عدد الادوات الموجودة في صندوق الادوات آبيرا جداء» فيفضل ان تقوم 

بعملية تقسيم الادوات الى مجموعات تختفي وتظهر متى ما شئت عن طريق 
من ٠۹5‏ ۸۵4 ...النقر بزر الفارة الايمن على نافذة صندوق الادوات واختيار الامر 
القائمة المنسدلة ومن ثم كتابة اسم المجموعة . طريقة تنظيم محتويات آل 

وهو نفس الاسلوب الذي م٥0۲‏ & وه5۲ مجموعة تتبع اسلوب السحب والالقاء 
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تتبعه لنسخ او نقل ملفات جهازك . اخيراء اذا اردت حذق المجموعة. قم بالنقر على 
من القائمة المنسدلةء ط۵٠‏ عاءام0 اسم المجموعة بزر الفأرة الايمن واختيار الامر 
لن تتمكن من حذفها. اتة٣م”ع‏ مع العلم ان المجحموعة الرئيسة والتي تسمى 
يبدو انني نسيت نقطة مهمة وهي آيف تعرض نافذة صندوق الادوات في حالة 
س۷iewمن‏ القائمة . ×0طام١٠‏ اغلاقها. يتم ذلك عن طريق اختيار الامر 
Properties Windows‏ iنافذة‏ الخصائص 
بمجرد انتهائك من وضع الأداة على نافذة النموذج» فان عينيك ست بحث عن موقع 
نافذة الخصائص والتي من خلالها ستتمكن من تعديل خصائص الأداة او حتى نافذة 
6 
> من هذه الخصائص الحجمء الموقعء اللونء العنوان .... الخ. اذا أتت ۴0٥۲۳‏ النموذج 
او اضغط على ۷W‏ من قائمة سەك¬ˆ Wi‏ sعrtiممPro‏ هذه النافذة مخفية اختر الامر 
۴4المفتاح [ .[ 
Com b0B0X‏ بأداة ال Basi‏ اقاءا۷ في اعلى النافذة يوجد قائمة تسمى في عالم 
تمكنك من تحديد الكائن او الأداة التي تود عرض خصائصه |. بامكانك تحديد الأداة 
مباشرة بالنقر عليها -وهي على نافذة النموذج- وستلاحظ ان محتويات نافذة 
الخصائص قد تغيرت . المزيد ايضاء يمكنك اختيار طريقة ترتيب جدول الخصائص اما 
. وبالنسبة للجدولء فان العمود dع90۲|7عاة‏ او مصنف ءام طة۸ماA‏ ترتيب ابجدي 
الايسر يعرض لك الخصائص المتوفرة للأذاة اما الايمن فيعرض قيمة آل خاصية من 
هذه الخصائص . بعض الخصائص تستطيیع تعدیلها مباشرة بكتابة قيمة عددية او 
او لون من عاطأءأ۷ . وبعضها عليك اختيار قيمة من عدة قيم آ ١0أامة٣‏ حرفية آ 
> وهناك نوع يظهر لك مربع صغير في اقصى ١٥0ا۸€0٤83‏ مجموعة لوح الالوان آ 
له ×80 وهاه0i‏ یمین العمود مکتوب عليه تلات نقاط "..." یقصد به ص ندوق حوار 
۴ خيارات اضافية آالخاصية . 
Explorer‏ Projectنافذۃ‏ مستکشف المشروع 
تزداد اهمية هذه النافذة بازدياد عدد الملفات التابعة لمشروعك. فهِي الوسيلة 
الوحيدة التي تمكنك من عرض محتويات مشروعك مرتبة على شكل شجري برموز 
مختلفة تجد شرحا مفصلا له | في ملف التعليمات . تستطيع الوصول الى الصفحة 
]. ان لم ۴1التي اقصدها عن طريق تحديد النافذة ومن تم الضغط على المفتاح |[ 
تكن نافذة مستكشف المشروع ظاهرة امامك» تستطيع عرضها باختيار الامر 
+R‏ اtkr‏ او الضغط على المفاتيح | .| eW‏ أ۷ من قائمة Project Explor6r‏ 
code Window‏ نافذة محرر الاآواد 
لغة برمجة» فبكل تأكيد عليك كتابة اآواد وتعليمات اللغة . عن أئة8 اهuء۷‏ بما ان 
طریق نافذة محرر الاآواد يمكنك عمل ذلك» فه ي توفر لك محرر برمجي ذآي جدا 
ومنسق آلمات يفتح نفس المبرمج لكتابة الاآواد . من المناسب ان انوه هنا بان 
بعض المبرمجين العرب الذين یستخدمون نظم تدعم مجموعة محارف الشيفرة 
يواجهون احیانا مشاآل في كتابة ۴× ,2000 wsەلn Wi‏ آ Unicode‏ الموحدة 
الحروق العربية» والسبب خارج نظاق الفقرة لكن حلها يتم عن طريق تغيير نوع 
. يمكنك عم ل Courier New (Arab‏ الي خط يدعم اللغة العربية آ ( ۴۸٤‏ الخط 
الموجودة في صندوق الحوار Editor ۴r"‏ ذلك بالتوجه الى خانة التبويب 
كا0 امن قائثمة . "هام0 والذي تصل اليه عن طریق اختیار الامر ۸5 pt0مO‏ 
7 
بامكانك مشاهدة نافذة محرر الاآواد اما بالنقر المزدوج بالفأرة على الأداة او نافذة 
]. اخيراء اذا آنت لا تحب مشاهدة افلام ۴7النموذج» او بالضغط على المفتاح [ 
الرعب البرمحي المتمثلة في الاآواد الطويلة. تمكنك هذه النافذة من عرض اجراء 
الموجود في Wع۷/i ۴۲١٤٣٤۴١۲٥‏ معين واخفاء سائر الاآواد عن طريق النقر على الزر 
الرآن السفلي الايسر من النافذة. لكن عملية التنقل بين الاجراءات ستكون مملة 
الموجودتان في اعلى النافذةء كم>×080ط 0٠‏ بعض الشىئ عن طريق القائمتين 
القائمة اليسرى تعرض جميع الادوات الموجودة في نافذة النموذج الحالية» بالاضافة 
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) وهي تشير إلى قسم الاعلانات في اة۴۲"ع6|إلى النموذج نفسة» وآذلك العبارة ( 
النموذج وآذلك الاجراءات والدوال التي تقو م بانشاءهاء والقائمة اليمنى تعرض 
جميع الاجراءات والاحداث المرتبطة بما يتم اختيارة في القائمة الاولى. 

Layout‏ i۴ormافذة‏ مخطط النموذج 

يؤدي الى ظهور هذه ۷1W‏ الموجود في قائثمة 0Wل, Layout Wi‏ ۴0۳ اختیار الامر 
الناقفذة والتي تعطيك رؤۋية مبسطة عن موقع وحجم نافذة النموذج التي تصممها 
وقت التنفيذ من الشاشة . الا ان الفائدة الكبرى التي تجنيها من هذه النافذة تكون 
المختلفة للشاشة . t0١‏ uامكهR‏ مقارنة حجم نافذة النموذج مع الكتافات النقطية 
utionادRes‏ لعرض هذه الكثافات» انقر بزر الفأرة الايمن على النافذة واختر الامر 

من القائمة المنسدلة. عdأUاG‏ 

Window‏ li1mmediateافذة‏ موجة الاوامر 

بسيطة للاختبار ٤أئة8‏ اقuءا۷‏ تمكنك هذه النافذة من كتابة اوامر وتعليمات لغة 
والتجربةء قد تحتاجها متلا لاختبار امر معين او قيمة متغير معين قبل وضع الكود له . 
] يؤدي الى الى تنفيذ الامر . تستطيع عرض ۲۴۸١Eبعد‏ ان تكتب الامر» المفتاح | 
Viewمن‏ قائثمة . mediate Wi ¬d0W‏ هذه النافذة باختیار الامر 

bject Browser‏ 0 نافذۃة مستعرض الکائنات 

اذا آنت مبتدءآ فإن هذه النافذة لن تثير اهتمامك . ولكن بعد ان تصل الى مرحلة 
سيكون لهذه النافذة تقدير آ بير . تعرض لك ءأكة8 اةلاءا۷ متقدمة من البرمجة ب 
هذه النافذة جميع الفئات الموجودة في المكتبات المضمنة في برنامجك مع آآفة 
طرقها. خصائصها واحداتها لتعطيك فكرة عامة عن محتويات هذه المكتبات . ميزة 
اخرى استخدمها كتيرآ هي انها تسهل عليك عملية ايجاد صفحة التعليمات الخاصة 
بالامر الذي تريده عن طريق | لنقر بزر الفأرة الايمن على العنصر المطلوب واختيار 
من القائمة المنسدلة . تستطيع عرض نافذة مستعرض الكائنات باختيار ما16 الامر 
۴2او الضغط على المفتاح | .| ۷i٥W‏ من قائمة Brows‏ ectز0bj‏ الامر 
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k0 caا| Window‏ نافذة المتغيرات المحلية 

. لانها في وقت ١٣٥‏ ۸1۸ الغرض الرئيسي من هذه النافذة يظهر في وقت التنفيذ 
ليس لها أي وظيفة ايجابية فلا تعرضها حتى لا تتزاخم ١١٣٠‏ "واكم التصميم 

اتةه ]ا النوافذ امامك. تعرض لك هذه النافذة قيم جميع المتغيرات المحلية 

الحالي والذي يتم تنفيذه اذا قمت ع۲ا كععه۴۲ الموجود في الاجراء Variables‏ 
محلية في كا6zزط0‏ للبرنامج . في حالة وجود أسنادات عكلاة۴ بعملية الا يقاف المؤقت 
الاجراء. فان اسم الكائن سيظهر في الجدول ملاصق لعلامة الزائد "+" حتى تقوم 
بالنقر عليه ويعرض لك جميع الخصائص وقيمها التابعة لهذا الكائن . لعرض هذه 

ew‏ i¥من‏ القائثمة . Wi|¬d0W‏ ا0ca‏ 1 النافذة اختر الامر 

-هو المرحلة التي يتم تنفيذ برنامجك فيها ع٣١۲ R1١‏ ملاحظة: وقت التنفيذ 

| اما وقت التصميم ۴5بعد الضغط على المفتاح‎ »] Design ime 

فهي المرحلة التي تصمم برنامجك به |. يوجد وقت خاص يعرق 

وهو باختصار عملية 2۸ء6۲ او القطع ۲٣٥٤‏ عماج۴ بالايقاف المؤقت 

الوقف المؤقت لتنفيذ برنامجك ولكن ليس انهائه. 

Window‏ lkiNatchesفذة‏ المراقبة_ 

تمكنك هذه النافذة من مراقبة المتغيرات او العبارات التي تضيفها به ا. عملية 
المراقبة تكون متواصلة ودورية التحديث آوزارة الاعلام . بامكانك تجميد عملية تنفيذ 
٤‏ او ru٥‏ الايقافق المؤقت - قي حال آون قيمة المتغير أصبحت صحيحة -البرنامج 
عند أي تفيير يطرأً على قيمة المتفير . الهدف من نافذة المراقبة ليس آاهداف وزراة 
ومعرفة قيم المتغيرات التي و٣‏ أووuاطع‏ 0 الاعلام وانما تسهيل عملية التنقيح 
البرامج. لعرض هذه النافذة اختر الامر 5ئ6 8U‏ % من اسباب شوائب 90 تشكل نسبة 
> ولاضافة متغير او قيمة لجعلها خاضعة تحت Wع‏ أ۷ من nûlمة Watch Window‏ 

- او انقر بزر ۷i€۷W‏ وليس- وuاطع0‏ من قائثمة Wa‏ ۸44 ...المراقبةء اختر الامر 
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الفأرة الايمن على النافذة ومن ثم اختيار نفس الامر من القائمة المنسدلة . الميزة 
الموحودة في هذه النافذة تغفطى على القصور الموجحود في النافذة السابقةء لان 
اا6 هذه النافذة تسمح باضافة المتغيرات العامة . 

Cal Stac)‏ نافذة استدعاء الاجراءات 

تتشابه هذه النافذة مع النافذتين السابقتين في أنها نوافذ خاصة ب التنقيح. تعرض 
هذه النافذة طابور للاجراءت التي سيتم استدعائهاء تفيدك هذه النافذة بقوة في 

. اخيراء بامكانك عرض هذه ١0أك۲لاءه۸‏ حالة استخدامك للاستدعاءات التراجعية 
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النافذة وقت الايقاف المؤقت في حال وجود اجراءات منتظرة الاستدعاء عن طريق 
ا+ا Ck‏ او الضغط على المفاتيح |[ .[ ۷W‏ الموجود في قائمة )عاك ااج الامر 
Data View‏ نافذة عرض البیانات 

من قائثمة Data View Wi 0W‏ تستطيع عرض هذه النافذة عن طريق اختيار الامر 
. تعتبر 100153۲ ۲4 ndaهSt‏ او النقر على رمزها في شريط الادوات القياسي Wء۷i‏ 
> فلم 10۴ نافذة عرض البيانات احدث نافذة دخلت صندوق بيئة التطوير المتكاملة 
وهو السشادس . هذه النافذة اوج8 اهقuاءا۷‏ تظهر الا في الاصدار الاخير من اصدارات 
دون مبالغة -البسنيطة في مظهرها تعتبر اقوى نافذة من النوافذ التي ذآرته |! لانها 
تعتبر برنامج آامل لمراقبةء إنشاءء تعديل» حذف وعرض جداول وحقول قواعد 

.... الخ . 0R ACاLE .MS-Access .MS-SQL Server‏ البیانات باختلاق آنواعها مثل: 
لذلك. فانه من البديهِي ان لا تضيع وقتنا ونفصلها الان» فالجزء الثاني من اجزاء 
الكتاب "برمجة قواعد البيانات" هو اهل للتفصيل -والتطريز اذا آنت تريد! 

قوائم بيئة التطوير المتكاملة 

اذا تحدتت عن آل امر من اوامر قوائم بيئة التطوير المتكاملة في هذه الفقرةء 

لي ولك - ان يتم شرح وظيفة-. فیستحسن 150N‏ فسیکون الکتاب اشبه بم راج 
الامر في حين استخدامه» الا انني سأعرفك على القوائم بطريقة مبسطة: 

ا۴ القائمة : 

تحتوي هذه القائمة على اوامر اساسية خاصة للمشاريع بشكل عام أنشاء 
مشروع جديد» حفظ محتويات المشروع» طباعة محتويات المشروع وترجمة 

هي امكانية ۷/86 . الميزة التي اضيفت ل 81١۵۲۷‏ المشروع وتحويله الى ملف تنائي 
فتح اآثر من مشروع في نسخة واحدة من البيئة» وهي ميزة تعرف بالمشاريع 
Projects‏ eاtipاMuالمتعددة‏ . 

: ع القائمة‎ di 

تحوي هذه القائمة على اوامر التحرير القياسية آالقص» النسخ واللصق . بالاضافة 
الى اوامر خاصة بقواعد البيانات في حالة وجود قاعدة بيانات في نافذة عرض 

. معظم الاوامر الواردة فقي اسفل هذه القائمة تستخدمها مع ۷ء۷ ها0 البيانات 
0de Window‏ افذة محرر الاآواد . 
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: القائمة‎ 1ew 

ذآرت معظم محتوياتها في فقرة "نوافذ بيئة التطوير المتكاملة ". وبالا عتماد على 
نباهتك ومدى استعيباك يمكنك معرفة الغرض هذه القائمة. 

: القائمة‎ Project 

معظم اوامرها خاصة بمحتويات المشاريع» فهِي تمكنك من اضافة عنصر او عناصر 
Classes‏ . فئات عاuل‌M0‏ . ملفات البرمجة ۴۵۲۳۶ من عناصر المشروع آنوافذ النماذج 
اضافية عن كام٣‏ امه ×عvااAc‏ .... الخ. المزيد ايضاء يمكنك اضافة ادوات تحكم 
خارجية عن طریق الامر اا0 ×ع۷آ)اAc‏ او تضمین مکتبات ٣٤۸‏ oمm۳ہC‏ طریق الامر 
.References‏ 

: للقائمة‎ Format 

الاوامر الموجودة في هذه القائمة خاصة بتنسيق الادوات التي تضعها على نافذة 
النموذج من ناحية موقعها على النافذة» فتوجد اوامر مرنة توفر عليك جهد محاذاة 
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الادوات او توسيطها على النافذةء بالاضافة الى تغيير ترتيب ظهور الادوات أي وضع 
تستخدمه ءاهاره )ما أداة فوق الكل او أداة خلف الكل . الامر الاخير 
اذا آنت 
راضيا عن تصميم الادوات وتود منع نفسك من تغيير احجامها او مواقعا عن طريق 
الخطاء هذا القفل تستطيع فتحة بكل بساطة باختيار نفس الامر مرة اخرى. 
وebu‏ hالقائمة‏ : 
معظم اوامر التنقيح وضعت اسفل هذه القائمة . من هذه الاوامر اختيار طريقة تنفيذ 
. امر سابق 0۷٥۲‏ صعاS‏ . اجراء آامل 1"0 ط6 البرنامج» آتنفیذ سطر واحد منه 
۸ او التنفيذ حتى الوصول الى السطر الذي يوجد عليه مؤشر الكتابة Step OU‏ 
فهي علامات تظهر مبدئيا باللون كأ”أم۸۴هعآ8 . وبالنسبة لنقاط القطع 0۲ئ۲ t0 Cu‏ 
الاحمر على سطر معين بحيث تتم عملية الايقاف المؤقت للبرنامج عند الوصول 
الى هذه العلامات. 
Run‏ للقائمة : 
عن طريق هذه النافذة البسيطة تست طيع تنفيذ البرنامج وتتمكنك من اختيار الاوامر 
. بالنسبة للامر E٩۵‏ او انهاء عملية تنفيذ البرنامج )8۲۴2 الاخرى آالايقاف المؤقت 
ولن تحتاجه الا في خالات 53۲ هو مشابه لامر llتiغذ Start with Full Compile‏ 
نادرة ستجدها لاحقا في هذا الكتاب. 
11 
Query‏ القائمة : 
وهي متوفرة لنسخة المحترفين ۷85هذه القائمة جديدة على مبرمجي 
۷6للاصداlر‏ llلlwدw‏ . Professional Edition تlwwênJlg Enterprise Editİ0¬‏ 
باستخدام الأداة ا50 اوامر هذه القائمة غير ممكنة ختى تنشى جملة استعلام 
.Microsoft Query Builder‏ 
ram‏ وiaط(للقائمة‏ : 
ومتوفرة لنفس النسخ المذآورة في ۷85 ايضا هذه قائمة جديد ة على مبرمجي 
الفقرة السابقة . اوامر هذه القائمة غير ممكنة الا في حالة تعاملك مع قاعدة بيانات 
SQL Server . glORACLE‏ 
sا0ە‏ ا القائمة : 
ومسھل کتابة Menu Edit ٥۲‏ تحتوي على اوامر مختلفة التصانيف آمحرر القوائم 
۴[ وغيرها... اذا ادرت تخصيص بيئة التطوير المتكاملة ۸4١ ۴۲٥٤ع u ۲٤‏ الاجراءات 
الذي يوفر لك ك١‏ هأأم0 يمكنك من الوصول الى صندوق الحوار 5٣٥ام0‏ فالامر 
٤#(اعشرات‏ الخيارات والخاصة بتغيير اعدادات بيئة التطوير . 
A4 4-s‏ القائمة : 
4الاوامر الموجودة في هذه القائمة عبارة عن برامج مستقلة تسمى الاضافات - 
هدفها توفير خدمات اضافية لبيئة التطوير تزيد من مرونته |. تطوير هذا النوع من 1۸5 
البرامج خارج نطاق الكتاب. 
Window‏ لقائمة : 
اةuء۷i‏ اذا آنت بحاجة الى شرح محتويات هذه القائمة. فيبدو انك جديد ليس على 
. فافضل شرح اسطره لك sسه0لك"اW۷‏ فحسب وانما على جميع تطبيقات بيئة 8251٤٥‏ 
الايقاف المؤقت - في الحالء وتحاول التعرفق على بيئة-هو بان توقف قراءة الكتاب 
ومن تم تعود لمتابعة القرlءة. Windows‏ 
ماعHeالقائمة‏ : 

> فلن يتمكنوا من الوصول ٤ء8‏ اهاءأ۷ بالنسبة لمستخدمي الاصدار السادس من 
Microsoft Developer‏ الى التعليمات الفورية الا في حالة انزال نسخة من مكتبة 
glİnJlyMSDNفة‏ ڊJlختڏlر‏ . Network‏ 
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اشرطة الإدوات 
جميع الازرار الموحودة في اشرطة الادوات منسوخة من القوائم السابقة»ء فلايوجد 
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داعي لاعادة الشرح. اما الغرض من نسخها فهو تسريع عملية اختيار الامر. 
ع۴۴İc-MS‏ تستطيع التحكم في اشرطة الادو ات وتحريرها آما تفعل مع تطبيقات 
من القائمة ع2أ٣0اءں‏ بالضغط بزر الفأرة الايمن على شريط الادوات واختيار الامر 
قد ادرجته ضمن فقرة ۲٥0۱80×‏ المنسدلة. احب ان انوه هنا بان صندوق الادوات 
نوافذ بيئة التطوير. فلا تعتقد انه من فئة اشرطة الادوات رغم الشبه الكبير بينهم 
كتابه برنامجك الاول 
لاشك ان الممارسة والتطبيق احد اهم عوامل تعلم لغات البرمجةء والفصل الاول 
من هذا الكتاب سيبدأً معك الممارسة ليس فقط لكتابة برنامجك الاولء وانما 
لتوضيح المراحل والخطوات السليمة لعملية بناء البرامج سواء أتت شخصية او 
تجارية. 
الخطوة الاولى: فكرة البرنامج 
ولا باي لغة اخرى ولا حتى بنظام ءأكة8 اةاءأ۷ قكرة البرنامج ليست لها علاقة ب 
التشغيل. فمن البديهي انك قبل ان تكتب برنامج عليك معرفة ما الذي تريده من 
البرنامج. قد تأتيك فكرة برنامج بينما تقلب صفحات الكتاب او متأملا النجوم في 
وضح النهار» وقد تكون الفكرة الزامية عليك آحل مشكلة تصادفك في جهازك او 
مشروع تخرج جامعي. 
بعد ان تخطر الفكرة في بالك وتظهر لمبة مضيئة فوق رساك اسحب اللمبة ورآبها 
في الابجورة المجاورة لجهازك» حتى ترآز وتقوم بعملية التخطيط لتطبيق الفكرة 
.> حدد المتطلبات والمشااك التي ›أكة8 اaاءا۷‏ على الارجح - ب-ابرنامج يصمم 
Software‏ ستصادفك. متل هذه الامور تندرج تحت علم هندسة البرامج 
والتحدت عنها خارج نطاق الكتاب . لذلك. ساختم هذه الفقرة بالفکرةö Engineering‏ 
التي سنقوم بتنفيذها وهي عبارة عن برنامج يجري عملية الضرب بين عددين. 
الخطوة الثانية: إنشاء المشروع 
بعد تحديد فكرة البرنامج وتوضيح المتطلبات سنبدأً بانشاء ملفات المشروع . قم 
. ھذا النوع Standard E×€٤‏ تم حدد النوع ٤ا۴‏ من قاثمة اecز٥٣P New‏ باختیار الامر 
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»> وعند ۷1۸00۷5 من المشاريع هي مشاريع بناء برامج قياسية تعمل تحت بيئة 
E×Eالترجحمة‏ تكون ملفاتها من النوع . 
بعد قيامك بعملية إنشاء المشروع الجديد» قم بكتابة اسم مناسب للمشروع في 
Project Properties‏ ...الموجودة في صندوق الحوار 2۳€ أcع‌زها۴‏ خانة النص 
. اأكتب اسم Wع۷i‏ من قائمة ءعنا همها t1ععزoاP‏ والذي تصل اليه باختيار الامر 
MyF۴irstProgram|ابتدائي‏ للمشروع ولیکن . 
ملاحظة: يكون عنوان الامر السابق مختلف من اسم مشروع الى آخر . فبعد 
MyFirstProgram‏ تعديلك لاسم المشروع» سيكون عنوان الامر 
.Properties...‏ 
لحفظ ملفات المشروعء تذآر ان المشروع ٥اأ۴‏ من قائمة اء عزه۴۲ 53۷€ اختر الامر 
خاص بملفات المشروع ۴۵1۵6۲ يحتوي على عدة ملفات لذلك يفضل انشاء مجلد 
> اما الملفات الاخرى فهِي ۷8۲ قبل حفظه . ملف المشروع الرئيس يكون امتداده 
.*. ملفات 845 .*. ملفات البرمجة ۴۸١M‏ عناصر مكونة للمشروع آنوافذ النماذج 
.* .... الخ. Sا€‏ الفئات 
الخطوة الثالثة: تصميم الواجهة 
يندرج تحت صنف لغات البرمجة المرئية» فعملية تصميم ٤ئ82‏ اةuءأ۷‏ بما ان 
الواجهة تتم في الفالب باستخدام الفأرة . نبد في العادة بوضع الادوات على نافذة 
النموذج ومن تم تعديل خصائصه |. عملية وضع الادوات على نافذة النموذج تتم 
بشکكل مشابه لرسم المربعات في برامج الرسمء واذا آنت تواجه صعوبة في عمل 
خPainذلك.‏ فدرب نفسك بضع دقائق على برنامج الرسام . 
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و زر اوامر ا#طةا وضع أداة عنوان ٠00180×‏ انتقل الى صندوق الادوات 

لرسم الخطء ومن ثم رتب ع" أا والأداة كئم×e×80"١‏ وادlتي CommandButton‏ 
:3- 1 الادوات بشکل مشابه للشکل 

: واجهة النافذة الرئيسة لبرنامجك الاول. 
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بعد ترتيب الادوات ومحاذاتها سنبدأً بعملية تعيين خصائصه |. حدد الأداة بالنقر عليها 
وانتقل الى نافذة الخصائص وقم بتعديل قيم خصائص الادوات آما في الجدول 
التالي: 

الاداة الخاصية القيمة 

نافذة النموذج 

زر الاوامر 

اداة العنوان 

أداتي النص 

Name 

Caption 

Name 

Caption 

Name 

Caption 

Name 

Caption 

Name 

Caption 

frmMain 

"البرنامج الاول" 

cmdMultiply 

"اضرب" 

IbIProduct 

"0" 

txtFirst 

"0" 

txtsecond 

"0" 

كتابة حروق بادئة قبل اسم الأداة ٤وج8‏ اقuء۷‏ ملاحظة: من تقاليد مبرمجي 
بحيث يستدل المبرمج على نوع الاداة عن طريق الأسم آ 

لخانة النص .... الخ» وستلاحظ × لزر الاوامر» 0٠۳١‏ لنافذة النموذجء 

انني أكتبعها بشكل جليل في الكتاب لتمسكي بعادات وتقاليد 

البرمجية. ٤أكئة86‏ اقuاءأ۷‏ احزاب 

وبذلك نكون قد انتهينا من الخطوة الثالثة: تصميم الواجهة. 

الخطوة الرابعة: كتابة التعليمات 

بعد تصميم الواجهة والاقتناع بمظهرها الفاتن» تبدأً خطوة كتابة التعليمات او الاآواد 
أي خطوة البرمجة الفعلية . قم بالنقر المزدوج على زر الاوامر» ستلاحظ ان نافذة 
قد انیرت وظھر بها هذا الکود: W10۷‏ ع٥٤‏ محرر الاآواد 

Private Sub cmdMultiply_Click() 

End Sub 
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اک اود که بن | السط رين السارخین سم فة غا ما قام الم سدم مار 
. وهذه فلسفة ۷اما†اu nM‏ التابع للأداة ا٤‏ على زر الاوامرء فهو مكان الحدث 
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. فالاآواد لا یتم تنفیذھا Event Driven Pro9 ra٣٣9‏ البرمجة المسیرة بالاحدات 
من اول سطر الى اخر سطر آما في السابق . آحل السطر الس ابق بكتابة الكود 
التالي الخاص باجراء عملية الضرب: 

Private Sub cmdMultiply_Click() 

IbIProduct.Caption =CDbl)txtFirst. Text * (CDblI)txtSecond. Text( 

End Sub 

ان لم تفهم الغرض من الكود السابق. فالفصول القادمة آتية اليك وستجد فيها 
بشكل مؤقت - ان الكود السابق يقوم بعملية-الجواب الشافيء ولكن اعرف الان 

ضرب القيم التي سيكتبها المستخدم في خانات النص وسيضع ناتج الضرب في 
أداة العنوان. 

الخطوة الخامسة: التجربة والتعديل 

] لتنفيذ البرنامج. ستظهر لك نافذة النموذج التي ۴5قم فورا بالضغط على المفتاح |[ 
في خانات النص ومن تم 5 و 2 صممتها وآافة الا دوات محضونة بهاء أأكتب الاعداد 

لامعا في أداة العنوان. 10 انقر على الزر "اضرب" آي تحصل على الناتج 

اذا آنت مسرورا جدا من نجاح عملية تنفيذ البرنامج» فتذآر ان عنوان هذه الخطوة 
"التجربة والتعديل " وليس "التنفيذ/". لانلك ستضطر لاحقا لاعاد ة تنقيح برنامحجك 

وليس-بعدما تكتشف هذه المشكلة البسيطة اذا قام المستخدم بكتابة حروق 
اعداد- في خانات النص تم قام بالنقر على الزر "اضرب "» ستلاحظ ظهور رسالة 
خطأ» وسيتوقف البرنامج عن العمل . بعرق هذا النوع من الأخطاء باخطاء وقت 
وستختفي به جة الفرحة باآتمال برنامجك الاول. لان RU۸ آ٣٥ ٤٣٥٣۶‏ التنفیذ 

لا يجري عملية الضرب على الحروف. فلا تتوقع ان: ٤أئة8‏ اهVisu‏ 

= ترآي ترآي ترآي ترآي ترآي 5ترآي * 

لذلك» عليك باعادة عملية تعديل الكود ليتحقق من القيم المدخلة من قبل 
المستخدم قبل اجراء عملية الضرب عليها» ويصبح الشكل النهائي للكود المعدل 
هو الكود الموجود في الصفحة التالية: 
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Private Sub cmdMultiply_Click() 

' التحقق من القيم المدخلة 

' قبل اجراء عملية الضرب عليها 

If IsNumeric)txtFirst. Text = (True And IsNumeric)txtSecond. Text = (True Then 

lbIProduct.Caption =CDbl)txtFirst. Text * (CDbl)txtSecond. Text( 

Else 

×Ms980"!القيم‏ المدخلة غير صحيحة" 

End If 

End Sub 

الهدف من هذه الخطوة ليس شرح الاآواد او طريقة تفادي الاخطاءء وانما توضيح 
قضية التجربة والتعديل وبيان اهميتها قبل الانتهاء من تصميم البرنامج. 

الخطوة السادسة: الترجمة 

اتمنى ان تكون فرحة نجاح برنامجك قد عادت من جديد. الخطوة الاخيرة التي 

. والمقصود منها عملية تحويل برنامجك الى و١أاام ٤0"‏ سنقوم بها تعرق بالترجمة 
Make‏ . يتم ذلك باختیار الامر ۴×۴ بالامتداد عاbھ†cuم×۴‏ ملف تنفیذي 

MyFirstProgram. EXE . ةمnئilê‎ jeFile 

تكون عملية و١ااام‏ ۳ه ملاحظة: في معظم لغات البرمجة الاخرى. الترحمة 
اتVisu‏ . اما مع ۴٤×۴‏ التي تنتج ملفات و١| ٣)‏ أا قبل عملية الربط 

وinkinاهي‏ نفس الربط . ٣9‏ ام۳٥‏ . فالترجمة Basic‏ 

الميزة في عملية الترجمة هي امكانية تنفيذ برنامجك على جميع الاجهزة التي 
باختلاف اصداراته والتي لا تحتوي على نسخة من ۷۸00۷ تحمل نظام التشغيل 
> لعل ٤أكةB‏ اقuءا۷‏ التي تاتي مع اا0 شريطة وجود بعض مكتبات ٤أكة8‏ اهuء۷i‏ 
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. لذلك. عليك ارفاق هذه المكتبة مع ملف برنامجك اا5 .5۷6۷5160 |برزها مكتبة 
Basic‏ ا۷isuaالى‏ الاجهزة الاخرى والتي لا تحتوي على . ۴٤×۴‏ الرئيسي 


النمادج والادوات 
> والنموذج 0Wل, W۷‏ مرادف للنافذة cأsة8‏ اھsuا۷‏ هو مصطلح خاص ب ۴٥۲۳‏ النموذج 
هو بالفعل نافذة تقوم بتصميمها وتظهر في وقت التنفيذ آسائر نوافذ تطبيقات 
فهي نوافذ ايضاء ولکن م ن نوع خاص توضع دائما sاەr Windows تٽlودالJl lol . Cont‏ 
داخل النماذج وتحتضن فيه . من المهم ان الفت النظر الى وجود نوعين من الادوات 
nا-tااBu‏ . النوع الاول هي الادوات الداخلية أsة8‏ اقuءأ۷‏ التي يمكن استخدامها مع 
- وهي العشرين أداة الموجودة مبدlaûı Controls ةıريهوجdll وl- Intrinsic Controls‏ 
Basi‏ اVisua‏ . جميع برامجك المصممة تحت2- 1في نافذة صندوق الادوات 
ملزمة بهذه الادوات حتی لو لم تستخدمهاء فهي مضمنة في مكتبة 
التي يشترط وجودها لتنفيذ برامجك . اما النوع الثاني من |اڌوlٽ MSVBVM60. DLL‏ 
×0وهي ادوات خارجية یکون امتداد ملف اتها . sام٣ Con‏ ×عvاActi‏ فتعرق بالاسم 
لاستخدام هذا النوع من الادوات» عليك اضافتها الى مشروعك عن طريق اختيار 
ectزPr0من‏ قاثمة . Components‏ الامر 
. وبما كأ عزط0 النماذج والادوات تتشارك في صفة مشترآة واحدة وهي انها أسنادات 
- تميز الكائنات ك#۲ط ”ع1 انها أسنادات» فهي تتكون من تلاث عناصر -تسمى الاعضاء 
. آل Events‏ والاحدات Methods‏ . الطرق ءعااممهءP‏ عن غيرها هي : الخصائص 
يحتوي على اعضاء خاصة به» فالنموذج له اعضاء ة8 اقاءا۷ أسناد من أسنادات 
مستقلة وأداة النص لها اعضاء مستقلة. الا ان النماذج والادوات تحتويان على 
عشرات الاعضاء المشترآة بينه |. لذلك» وجخدت من الافضل إن ابدأً بعرض الخصائص» 
الطرق والاحداث المشترآة بين النماذج والادوات»؛ ومن ثم ذآر اعضاء آل أسناد على 
حده. 
۱ لخصائضص 
> او في سلوك ١0†مةC‏ الخاصية هي قيمة تؤثر اما في الشكل الخارجي للأداة آ 
. نافذة الخصائص هي المكان الذي يمكنك من تغيير قيمة كعاطاة"۴ عمل الأداة آ 
18 
الخاصية وقت التصميمء اما وقت التنفيذ فعليك كتابة الكود والذي تكون صيغته 
مبتدئة باسم الأداة فنقطة تم اسم الخاصية: 
ext‏ ا .ex»t1ا‏ = "تراي العامري” 
PictureBox1.BackColor =0‏ 
Label1.Caption =Text1.Text‏ 
اذا آنت ترغب تعديل مجموعة خصائص لكائن W١‏ او استخدام الكلمة المحجوزة 
او اداة معينة: 
With Text1‏ 
× ا "ترآي العامري" = 
.Font.Bold =True‏ 
.BackColor =vbBlack‏ 
.ForeColor =vbWhite‏ 
End With‏ 
> تغنيك P۲٥6۲‏ ااDefau‏ تتمیز بعض الأدوات بوجود خاصية افتراضية لها تعرق ب 
هذه الخاصية عن آ تابة اسم الخاصية بعد الأداة اذا اردت تفيير قيمتها برمجي |. 
e×tا‏ والخاصية ١0اأمة٤‏ معظم الادوات الداخلية تكون خاصيتها الافتراضية هي 
لأداة النص: 
ptionَ1.CaاLabe‏ = "الخاصية الافتراضية" 
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1اعLab‏ = "الخاصية الافتراضية"” 
Textl ="Text1.Text”‏ 
بالنسبة لنافذة النموذج» يمكنك الوصول الى خصائصها دون الالتزام بالصيغة 
او حتى تجاهلها: 1٩‏ السابقة فتستطيع استخدام الكلمة المحجوزة 
'جميع الاآواد التالية متشابهه 
۴orm1.Caption‏ = "النافذة الرئيیسة"” 
Me.Caَption‏ = "النافذة الر ئيسة 
Caption‏ = "النافذة الرئيسة” 

من الضروري ان انبه هنا إلى انه ليست آل الخصائص قابلة للتعديل وقت التصميم 
التابعة لنافذة النموذج لايمكنك تعديلها عارا۲5٥‏ ل80۲ والتنفيذ» فبعض الخصائص آ 
19 
-التابعة لنفس الكائن - لايمكنك ٤1۲۴٤۴١‏ وقت التنفيذ» وعلى العكس الخاصية 
تعديلها الا وقت التنفيذ . المزيد ايضا» هنالك بعض الخصائص غير قابلة للتعديل 
> فهي خصائص تقرأها ۸۷0 لا في وقت التنفيذ ولا التصميم - آالخاصية-مطاقا 
Read Only Properties‏ فقط وتستفيد من قيمها وهي تعرقف بخصائص القراءة فقط 
في وقت التنفيذ او التصميم او آلاهم |. وعلى العكس» يوجد نوع من الخصائص 
ولا تستطيع قراءتها في وقت التصميم 5ع ا Write Only Proper‏ تعرق بالکتابة فقط 
او التنفيذ او آلاهما. 
والآن دعنا نتعرف اآثر على الخصائص المشترآة للادوات. والبداية ستكون مع 
Name‏ خاصية الاسم . 
Name‏ خاصية الاسم 
تعديل هذه الخاصية ممكن في وقت التصميم فقطء وهي الخاصية التي تمثل 
الاسم البرمجي للأداة . فالاسم الذي تكتبه في هذه الخاصية هو الاسم الذي 
تستخدمه برمجیا للوصول الى خصائصها. طرقها وحتى اخداته |. وآنصيحة لا تحاول 
ابدا تفيير اسم الأداة بعد كتابة الكثبر من الاآواد. فان ذلك سيضطرك الى تغيير 
جميع الاآواد للاسم السابق للأداة . نصيحة اخرى. لا تحاول الاعت ماد على الاسماء 
.۴0rm1‏ ۴02 عند بداية رسم الأداة آ ‏ اوج8 اهنءا۷ الافتراضية التي يوفرها 
.... الخ فكثرة هذه الاسماء تسبب لك تشويش على ذاأرتك. آذلك 1اعءطجا 
لاتستطيع اختيار اسم للأداة مادام لا يحقق الشروط التالية: 
حرقف. 40 - لا یزید عن 
> ؟. " .... الخ.& - لا يحتوي على مسافة او علامات آ 
- لا يكون محجوز لاسم أداة اخرى في نفس النموذج او اسم نموذج اخر في 
باستثناء مصفوفة الادوات آما سيأتي بيانه لاحقا.-نفس المشروع 
خصائص الموقع والحجم 
ُي تحتوي على-خصائص الموقع والحجم موجودة في جميع الادوات القابلة للظهور 
فمن البديهي ان تكون ۲|٣٥۲‏ . اما الادوات الاخرى آأداة المؤقت عاطأءأ۷ الخاصية 
هذه الخصائص غير موجودة طالما ان الأداة غير قابلة للظهور ابدا وقت التنقفيذ. 
تحددان موقع الزاوية العلوية اليسرى للأداة بالنسبة ۲0۲ و 1€ خصائص الموقع 
الى الأداة الحاضنة لها او موقع الزاوية العلوية اليسرى لنافذة النموذج بالنسبة الى 
الشاشة. الوحدة المستخدمة هي نفس الوحدة المحددة في الخاصية 
التابعة للأداة الحاضنة . اما نافذة النموذج» فدائما تكون الوحدة ScaleMode‏ 
20 
آما سنعرف لاحق |. اذا آنت تريد توسيط ط۲۷ المستخدمة لتحديد موقعها هي ال 
الأداة وقت التصميم في نافذة النموذج» حدد الأداة تم اختر احد الاوامر الموجودة 
> اما في وقت التنفيذ فهذا أة٣۲ه۴‏ من قاثئمة ۴٥۲۳‏ ہ1¡ Cent‏ في القائمة الفرعية 
الكود يفي بالغرض: 
Command1.Left ) =Me.ScaleWidth -Command1.Width / (2‏ 
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Command1.Top ) =Me.ScaleHeight -Command1.Height / (2‏ 
فهي تمتل عرض وطول الأداة بنفس W١‏ و واه بالنسبة لخصائص الحجم 
الوحدة المستخدمة لخصائص الموقع . في حالات معينة لن تستطيع تغيير قيمة 

عاSty‏ اذا أتت خاصيتها- ×ه08ط ٤٥٠‏ لبعض الادوات آأداة ال خوام١‏ الخاصية 

هن | ستكون معتمدة على نوع وحجم الخط وام . فقيمة الخاصية0 نساوي 

- فان ×180ءاا آأداة-التابعة لها. وبعض الادوات ۴٠١‏ المستخدم في الخاصية 
ليس دقيق تماما فقيمة هذه الخاصية تمثل عدد أوام٣‏ التحكم في خاصيتها 
ارتفاع ال سطرء فلا تتوقع ظهور جزء من سطر لان سطور النصوص × السطور 
الموجودة فيها اما ان تعرض ااملة او لا تعرض. 

خصائص الاحتضان 

الى نافذة Reference‏ تمتلان مرجع ۲عContair‏ و Parent‏ خصائص الاحتضان 
ontainer‏ او الأداة الخاضنة للأداة . ۴2۲۵١١‏ النموذج الحاضنة للأداة في الخاصية 
Container‏ ي لا يمكنك تعديلهاء اما الخاصية-هي للقراءة فقط ۴۲٠١۲‏ الخاصية 
فهي قابلة للتعديل في أي وقت تريد تغيير الأداة الحاضنة للأداة: 

Pictu re8 0×‏ 'ادخال زر الاوامر داخل 

Set Command1.Container =Picture1 

في الكود السابق. لانك تقوم اه5 ملاحظة: لابد من استخدام المعامل 

باسناد قيم لكائنات وليس قيم عادية» القصل الخامس سيوضح لك 

بمشيئة الله. ا56 اسباب استخدام المعامل 

-من المرونة التي توفرها لك هاتان الخاصيتان هي امكانية الوصول الى اعضاء 
خصائص وطرق - الأداة او نافذة النموذج الحاضنة للأداة. فالكود التالي يقوم بتفيير 
لنافذة النموذج الحاضنة للأداة: ١0أأمةC‏ الخاصية 
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command 1.Parent.Caption‏ "تغیر عنوان النافزة" 

اذا أتت الأداة موجودة على نافذة النموذج ولم .< أداة اخرى. فان الخاصيتان 
تمتلان نفس المرجع لنافذة llلiمgڏج. Container‏ و Parent‏ 

خ۴ خاصية الخط 

جميع الادوات التي تعرض نصوص على جبهتهاء تحتوي على هذه الخاصية والتي 
تحدد فيها نوع وحجم الخط المعروض على جبهة الأداة . الوقت المفضل لتحديد هذه 
. اما في ۴0١‏ القيمة هو وقت التصميم وذلك بسبب وجود صندوق الحوار المألوق 
خ۴0nوقت‏ التنفيذ. فعليك استخدام الكائن : 

With Label1 

.Font.Name ="Tahoma” 

.Font.Bold =True 

.Font.Size =20 

End With 

هي فكرة نسخ جميع خصائص الخط من ۴٠١‏ من المرونة التي يوفرها لك الكائن 
اداة الى اخرى: 

Set Label1.Font =Label2.Font 

التابع للأداة ۴ من المهم ان تعلم انه في الكود السابق قمنا بنسخ الكائن 
اصبح اسناد واح د ترتبط ۴٥٣‏ فالكائن 1اعطه ]ا التابع للاداة ۴۸٣۲‏ مكان الكائن 2اعمbجا‏ 
فان 12٤ظھ|ا‏ به الاداتین» والدلیل انه لو قمت بتعديل احد خصائص الخط للأداة 
ستتأثر ايضا: ۵611ا خاصية الخط التابعة للأداة 

L1‏ 'ستتاتر ايضا الأداة 

Label2.Font.Size =20 

الغريبة بعض الشئ. ۴٥١‏ السبب في التصرفق السابق خاص بطبيعة الكائن 
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ملاحظة: الفصل الخامس يحتوي على العديد من الامثلة العملية» ويعرض 
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لتقنيات متقدمة في التعامل مع الكائنات بما في ذلك عملية نسخ 

الكائنات. 

فهي تمتل اسم الخط المراد استخدامه» وفي حال ۴٥۸۲.١2۳٥‏ بالنسبة للخاصية 

يضع خط اوت8 اةuءا۷‏ استخدامك لخط غير موجود في نظام التشغيل فان 

افتراضي من عنده» وللاسف لا استطيع ان اذآر بالتحديد ما هو الخط الذي 

فهو يختلف من جهاز الى اخر . اما بالنسبة للخطوط ٤أكة6‏ اه۷اءأا سيستخدمة 

لا یتوفر بکل ۴٥۸.512٥‏ . فان حجم الخط ٥م۲۷‏ عد۲۲التي لا تندرج تحت تقنية 

Basic‏ امVisu‏ المقاسات. فلا تثق بالقيمة التي ارسلتها الى هذه الخ اصيةء لان 

يقوم بتغيیرها: 

Label2.Font.Name " =MS SystemEx" 

Label2.Font.Size =20 

مp>zlJl‎ Print Label2.Font.Size ' 15 

المخضرمين فالخصائص القديمة ٤أكة8‏ اهةباءأ۷ اخيراء بالنسبة لمبرمجي 

مع ذلك ۷/86 .... الخ» ما زالت مدعومة في FontBold «FontSize «FontName‏ 

الكتاب لا اقش خصائص غمس ها التراب. 

خصائص اللون 

تمتلان لون الخلفية ولون الخط للأداة . بعض ۴0۲6٥010‏ و 0۲اهC٤ Bac)‏ الخاصیتان 

لا تدعم هاتان الخاصيتان. فألوانها تكون قياسية مستوحاه من 50۲||83۲ الادوات آ 

لا يمكن ان تلحظ التغيير في قيمة الخاصية اعطةا نظام التشغيل . بعض الادوات آ 
. آذلك الحال عu»ةم1-0‏ تساوي عار†S)عمB‏ الا اذا أتت قيمة الخاصية BackCol|or‏ 
> فلن تتمكن من مشاهدة التفيير اللوني لخلفيته ١0ا C٥٣۳2 ۸4 6u‏ مع زر الاوامر 

مع العلم ان الخاصية اةءأأمةا1-6 الى عارك الا اذا حولت قيمة خاصيته 

ليست مدعومة فیه. 0۲ا €ع۲ه۴ 

بالنسبة لقيم الالوان فمن الافضل ان اقسمها لك الى قسمين : الالوان القياسية 
. الالوان القياسية هي المفضلة 0۲اه "٣0أاكuح‏ والالوان انئلخlصة Standard Color‏ 

في معظم الاحوال للادوات لانها الوان يحددها المستخدم عن طريق خانة التبويب 

من لوحة التحكم« فهي Display Properties ilgJl‏ في صiدJa‏ lgzJlر Appearance‏ 

بهذه الالوان . ۷|۸0۷ تناسب مزاج المستخدم ویرید ان تظهر جميع تطبيقات 

لذلك. من اساليب احترام ذوق المستخدم هو استخدام الالوان التي تناسبه عن 
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. اما النوع الاخر وهو الال وان 0۲ام€ كاةndهاك‏ طريق الاعتماد على الالوان القياسية 

الخاصة» فهي الوان ستاتيكية أي ثابتة لا تتغفير مهما قام المستخدم بتعديل 

خصائص سطح مكتبه» وان لم تكن مصمم راقي في اختيار الالوان المناسبة 

لادواتك. فانصحك بالانتقال الى فقرة "خصائص الجدولة ". اما اذا آنت من 

المعاشرين لليوناردو دافنشي او مايكل انجلو.» فتستطيع استخدام مجموعة من 

التوابت تمتل ارقام الالوان: 

Me.BackColor =vbGreen 

Me.BackColor =vbBlue 

واستخدام نفس الاعداد التي آنت تستخدمها في ايام طفولتك 8٣010۲‏ او دالة 

5-5 مع بيئة : 

Me.BackColor =QBColor )0‏ ( "اسود 

Me.ForeColor =QBColor )15‏ ( 'ابيض 

مع تحديد العمق اللوني للاحمرء الاخضر والازرق: ۸68 او دالة 

Me.BackColor =RGB )255, 0, 0( 

مليون لون. فتستطيع 16 وإن آنت تتمتع بذاآرة قوية جدا جدا جدا تحفظ اآثر من 

الاستفادة من هذه الذاآرة قبل الجنون واستخدم الثوابت العددية مباشرة: 

Me.BackColor =4234232 

Me.ForeColor =&H53FF۴2‏ 'قيمة ست عشرية 
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آل الطرق السابقة تعمل بشكل جيد في وقت التنفيذ وحتى وقت التصميمء 

في خانة كتابة قيمة خصائص R68‏ و 0۲ام٣Q8‏ فتستطيع استخدام الدوال السابقة 
الالوان في جدول نافذة الخصائص. رغم انها توفر لك لوح الوان يعطيك فكرة عن 
عمق اللون قبل اختياره. 

خصائص الجدولة 

8 يفضلون استخدام مفتاح الجدولة [ | 0۷sل٣‏ آ۷ معظم مستخدمي تطبيقات 
۴‰ للتنقل بين الادوات . معظم الادوات التي لها قابلية انتقال الترآيز 


. حدد عن طريق ×عل"1طة١‏ و مها5طة"۲ آأداة النص» تحتوي على خصائص الجدولة 
ما اذا آ نت تريد جعل الترآيز ينتقل الى الأداة بمجرد ان يضغط م50طة٣‏ الخاصية 
×عnd" b1‏ ]. ورتب فهرس الترآيز عن طرق الخاصية 1۸8المستخدم على المفتاح [ 
لكل أداة» مع العلم ان ترقيم الفهرس يبدأ عادة من الصفر. 
للأداة. فان عءاه۴ تساوي م0ا5طهج۲ ملاحظة: حتى لو أتت قيمة الخاصية 
المستخدم لديه فرصة اخرى لنقل الترآيز الى الأداة عن طريق 
النقر عليها بزر الفأرة. 
خصائص موشر الفأرة 
تحددان الشكل المطلوب 107عM0us‏ و MousePointer‏ خصائص مؤشر الفأرة 
مؤشر قياسي MousePOİ"†€‏ 16 . توفر لك الخاصية €°1۲50۲ M0us€‏ لمؤشر الفأرة 
99يوفرها نظام التشغيلء وإِن رغبت في تخص يص رمز معين» > فاختر القيمة - 
Mouse1con‏ من الخاصية السابقة مع تحميل ملف المؤشر في الخاصية "0أكئU€‏ 
وقت التصميم او اأكتب الكود التالي لاجراء العملية وقت التنفيذ: 
Command1.MousePointer =vbCustom‏ 
Command1.Mouselcon =LoadPicture )"C:\Test.ICO”(‏ 
لن تلاحظ تغيير المؤشر الا اذا مرر المستخدم مؤشر الفأرة قوق الأداة . مع 
من تغيير شكل المؤشر ان تم تغيير المؤشر ٤ئ82‏ اقuاءأ۷ا‏ هناك عدة عوامل تمنع 
> جرب هذا الكود للحظة: ١٠٤٠۲ء5‏ العام للبرنامج والمتمثل في الكائن 
Screen.MousePointer =2‏ 
Command 1.MousePointer =5‏ 'لن یتغیر شکل المؤشر ابدا 
تجاهل تخصيصنا وأننا لا 825٤‏ اقاءا۷ رغم اننا خصصنا رمز معين لزر الاوامرء الا ان 
ليس انقاص في تقديرنا او احترامناء وانما ٤أئة8‏ اقاءأ۷ نعنيه شيئاء التجاهل من 
والذي يكون آالتالي: Mouse Poi †٥۲‏ مع خاصية |825 اھuوا۷‏ في اسلوب تعامل 
0-Default «‏ غير Screen‏ التابعة للكائن ۲ع†”MousePoi‏ - اذا أتت قي مة الخاصية 
التابعة لسائر MousePoint€۲‏ سيتجاهل جمیع خصائص 25|C‏ 6 اھuءا۷‏ فان 
الادوات في البرنامج» وسيكون شكل المؤشر هو الشكل الذي تحدده في هذه 
الخاصية دائما وابدا الا في حالة انتقال المؤشر الى برنامج اخر. 
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0-Default‏ تساوي Scree¬‏ التابعة للكائن e۲†”¡ە Mouse P۴‏ - اذا أتت الخاصية 

> فان شكل ااه ه0-20 التابعة للأداة لا تساوي ۴it‏ مMous‏ وأتت الخاضية 
التابعة للأداة. ۲ع MousePoin‏ المؤشر سيكون آما هو مطلوب في الخاصية 
0-Default‏ تساوي Scree¬n‏ التابعة للكائن "t٤۲‏ iەP۴عMous‏ - اما اذا أتت الخاصية 
ايضاء فان شكل اااةfع0-2‏ التابعة للأداة تساوي ١ع" Mouse ۴0i‏ والخاصية 
التابعة لنافذة ٣ع†”iەPمMous‏ المؤشر سيكون آما هو مطلوب في الخاصية 
النموذج. 

لا تقم بتغفيير شكل المؤشر الا عند الحاجة لتغييره»ء آتحويله الى صورة يد عند 
المرور فوق رابط لموقع على الانترنت» او على شكل الاسهم في حالة التحجيمء 
ومن المستحسن تحويله الى شكل ساعة رملية عند بداية أل اجراء حتى يعلم 
المستخدم ان عليه الانتظار: 

Private Sub Command1_Click() 
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اجراء تنفیذه يستغرق وقت 
Screen.Mouselcon =vbHourglass‏ 
"آآواد الاجراء 


ألا تسى استرجاع الشكل الافتراضي 

Screen.MousePointer =vbDefault 

End Sub 

ight ToLeft‏ Rخاصية‏ التعریب 

ولو بسيطة - تمكنهم-. طال انتظار المبرمجين العرب لخاصية ۷84 حتى ۷/81 منذ 
5 من اليمين الى اليسار» وجاء-من تحويل اتجاه ادواتهم الى الاتجاه العربي 
المدعومة فقي معظم اع اه ١۲وأR‏ حاملا البشرى السعيدة ليزف اليهم الخاصية 
لا تطبق تقنية ۴ع اه ١۲٣واR‏ حتى نافذة النموذج . صحيح إن الخاصية-الادوات 
Basi‏ اVisua‏ المرآة. الا انها حلت عشرات المشاآل التي أتت تواجه مبرمجي 
ا 


وهي تقنية تقوم 98 0۷Wsل ۷1٣‏ ملاحظة: تقنية المرآة ظهرت من ذ الاصدار 
القياسية والشائعة الى الاتجاه sسمل١اW۷‏ بقلب شكل ادوات 

من اليمين الى اليسار . طريقة تطبيقها تتم عن طريق-العربي 

خاصة» سنتعرف عليها في الفصول ۸٨1‏ الخوض في اجراءات 

اللاحقة بمشيئة الله. 

وانما مكتبة ااM5۷6۷۷N60.5‏ عليك الانتباه الى ان هذه الخاصية لا تت بع مكتبة 
> الغريب في امر هذه اا٥ ۷(BAM٤.‏ خاصة بتطبيقات الشرق الاوسط تعرق ب 
حتى تعمل معك 01۲۴٤0۲۷‏ ۳عاكرS‏ المكتبة هو ضرورة وجودها في مجلد النظام 
بشكل صحيح» فعندما تقوم بتوزيع برنامجك على اجهزة اخرى» لا تحاول وضعها في 
لهذه الخاصية تحول اتجاه ع٥٠٠۲۲‏ نفس مجلد البرنامج فذلك لن يفيدك . القيمة 
النافذة الى الاتجاه العربي آما تفعل ذلك مع اغلب الادوات. 

اذا أن لديك نافذة نموذج مصممة وادواتها مرتبة بالاتجاه المعاآاس للعربيء فهذا 
الكود يوفر عليك عناء اعادة ترتيب الادوات لتكون من اليمين الى اليسار: 
Private Sub Form_Load()‏ 

Dim Ctrl As Control 

On Error Resume Next 

For Each Ctrl In Controls 

If TypeOf Ctrl Is Line Then 

Ctrl.X1 =Ctrl.Container.ScaleWidth -Ctrl.X1 

Ctrl.X2 =Ctrl.Container.ScaleWidth -Ctrl.X2 

Else 

Ctrl.Left =Ctrl.Container.ScaleWidth -Ctrl.Left -Ctrl. Width 

End If 

If Ctrl.Alignment =1 Then 

Ctrl.Alignment =0 

Elself Ctrl.Alignment =0 Then 

Ctrl.Alignment =1 

End If 

Ctrl.RightToLeft =True 

Next 

RightToLeft =True 

Err.Clear 
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End Sub 
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4 hخاصية‏ المقبض 

> وهي قيمة ءعاأممProp Read Only‏ هذه الخاصية تعتبر من خصائص القراءة فقط 
Basic‏ اVisua.‏ حتى لو آنت من آبار المحترفين في . 10١9‏ عددية طويلة من النوع 
والتي ۸۲1 لن تستطيع الاستفادة من هذه الخاصية الا عند تعاملك مع اجراءات 
سنناقشها في الفصول اللاحقة . وبما ان الوقت مازال مبكرا جدا للحديتث عنهاء فاود 
والادوات sامContr‏ ndardهSt‏ توضيح نوعين من الادوات هما الادوات القياسية 

او الوهمية. sامContr‏ essاWindow‏ معدومة النوافذ 

Basi‏ ا۷isua‏ من صندوق الادوات» یقوم ×۲8×80 عندما تقوم بإنشاء أداة نص 

طالبا منه نسخة من ۸00۷WS‏ |۷ باجراء عملية اتصالات سرية مع نظام التشغيل 
يجبره على الموافقةء ويقوم باعطاء رقم فريد ۷1۸۵0۷5 الأداة. آرم نظام التشغيل 

. هذا الرقم عال١ ۸2٣‏ س0لWin‏ لا يتكرر الى هذه الأداة يعرف بالاسم مقبض الن افذة 
التابعة للأداة . من المهم ان تعلم هنا بان المسؤول ل١٣۸۷‏ يتم حفظه في الخاصية 
. فجميع ٤أكة8‏ اةuءا۷‏ الإاول والاخير عن هذه الأداة هو نظام التشغيل ولیس 
العمليات التنسيقية او التي يقوم بها المستخدم يتفاعل معها نظام التشغيل 

هنا اشبه بالمترجم بین المبرمج وبين |835 |2اءا۷ . فدور ٤ئ8‏ اھuءا۷‏ ولیس 
Winds‏ نظام التشغیل . 

فهي ادوات وهمية خاصة ببرامجك ءاor†r0€‏ essاWindow‏ اما الادوات من النوع 
ونظام التشغيل لا يعلم أي شئ عنها متثل الاعمىء» ءأكة8 اقuاءا۷‏ المصممة تحت 
4 hnوالدليل‏ انها لا تمتلك الخاصية . 

جميع الادوات الموجودة في صندوق الادوات هي من النوع الاول باستثناء الادوات : 
فهي ادوات وهمية ولا تحتوي على الخاصية 1m2a9ge‏ و Line «Shape «Timer «Label‏ 
. حاول الاآتار من هذا النوع من الادوات فهي تستهلك القليل من مصادر ۸۷١‏ 
وتکون اسرع بکثیر من الادوات الاخری. کعourzک‌R System‏ النظام 

Standard Contos‏ . فمعظمھا من النوع sاەContr ActiveX‏ بالنسبة لادوات التحکم 
. ولا يمكنك معرفة نوع اداة التحکم عن Window اess Cons‏ وقد تکون من النوع 
بها فقد تكون الأداة من النوع الاول ولكن مصمم 1۷١١‏ طريق اختبار وجود الخاصية 
لاسباب شخصية. 1۷٣١‏ الأداة قد اخفى ظهور الخاصية 

خصائص اخری 

التي تمكنك من اخفاء الأداة عاطأكئا۷ من الخصائص المشترآة الاخرى خاصية الرؤية 
والادوات المحضونة بها عن عين المستخدم لكنها ظاهرة لعين المبرمج» قالأداة 
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موجودة في الذاآرة وبامكان المبرمج الوصول اليها حتى وان أتت مخفية . خاصية 
تمنع المستخدم من التفاعل مع الأداة سواء بالنقر او الكتابة كأ#اطة"۴ التمكين 
تحفظ قيمة حرفية ٠29‏ عليها وهي تؤتر ايضا على الادوات المحضونة به |. الخاصية 
تكون قيمة اضافية -لا راحت ولا جت- ولا تؤتر باي شکل من الاشکال على ٣9‏ !S†۲؟S‏ 
تستخدم في حالة نسخ الادوات لتكوين ما ×علك"1 سلوك او مظهر الأداة . الخاصية 
والذنذي سنتطرق اليه في فصل "الاستخدام ۸۲٣۵۷‏ ام٣اہCo‏ يعرف بمصفوفة الادوات 
المتقدم للنماذج". 

ومن الخصائص التي تؤثر على مظهر الأداة والمدعومة على بعض الادوات خاصية 
للأداة. والخاصية 3-0 التي تعطي مظهر ثلاثي الابعاد ع٤١2١2عممA۸‏ المظهر 

التي تخفي او تظهر الحدود الخارجية للأداة وأيضا خاصية |Jلمlذlة BorderStyle‏ 
التي تحاذي الأداة تلقائيا حتى مع تفيير حجم النافذة دون الحاجة الى كتابة ٣9ا‏ 
اآواد اضافية. 

ظهور مریع اصفر عندما تقوم بتوجيه مؤشر Windows‏ llحzظ‏ في معظم تطبيقات 
الفأرة الى أداة معينة والانتظار بضع تواني دون تحريك المؤشرء هذا المربع يدعى 
بامكانك تخصيص تليمح لكل أداة موجودة في نافذة النموذج مأ٣اهه٣٠‏ أداة التلميح 
ext‏ ا ماعن طريق الخاصية . 
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او DragIcon‏ و Mode‏ ragط‏ اخيراء الخصائص القديمة آخصائص السحب والالقاء 

.... الخ من الخصائص tem .LinkMode Lin) ۲٥ما ٥‏ inkا‏ خصائص الر بط الدینامیيکي 
التي قد جار عليها الزمن وطفغت عليها تقنيات افضل منه |. اذا آنت مضطر لتحقيق 
مع برامجحك القديمة» فهِي مازالت مدعومة بشكل جيد اأ اأةمmصهC‏ التوافقية 
جداء اما هذا الكتاب فلن ينظر الى الخلف ابدا ولن يذآر هذه الخصائص بعد النقطة 
التالية. 


الطرق المشترآة 

بعد الخصائص تأتي الطرق. الطرق عبارة عن اوامر ترسلما الى الأداة لتحريكها او 
تعود ۸5 ۴u C)i0‏ هي عبارة عن دوال dsأمMeth‏ نقل الترآيز إليه |. والواقع ان الطرق 
تقوم بوظيفة ما ولكنها لا تعيد أي قيمة . وآما نوجد Sub's‏ بقيم معينهء او اجراءات 
آلعید می ااا ن االم سر بس الاعواتہ جد اها عد طرق مقن ھی 
ove‏ Mالطريقة‏ 

> فان Width‏ و Leftء op‏ اء Height‏ اذا أتت الأداة تدعم خصائص الموقع والحجم 
مدعومة بها لا مخالة. فالكود التالي: 10۷٥‏ الطريقة 
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Form1.Left =100 

Form1.Top =200 

Form1.Height =300 

Form1.Width =400 

سطور مملة 4 مرات الى جانب انه يستهلك عi7که‌R‏ _۴0۲۳ 4 يقوم يتفجير الحدث 
0e‏ تؤدي الى بطء في التنفيذ» من هنا تبرز ميزة الطريقة : 

Form1.Move 100, 200, 300, 400 

جميع القيم المرسلة اختيارية باستتناء القيمة الاولىء ولا تستطيع ارسال قيمة 
دون ارسال قيمة سابقة لها: 

۴rm1.Move 100‏ , 200 'ممكن عمل ذلك 

Frm1.Move 100‏ , , 300 'انسی هذة الفکرة 

ةقيرطلاك‌et۴0cus‎ 

الخاصة به |. اذا أتت t۴0 us‏ توجیه الترآیز الى الأداة يتم باستدعاء الطريقة 
الأداة مخفية او غير ممكنةء فان هذه الطر يقة > في وقوع خطأً وقت 
عاVisib‏ . لذلك. ينصح بالتحقق من خاصيتي الظهور Run rime Error‏ التشغیل 
قبل نقل الترآيز الى الأداة: ١عاطاة"۴‏ والتمكين 

If Text1.Visible =True And Text1.Enabled =True Then 

Text1.SetFocus 

0 End If 

اذا آنت تريد منع المستخدم من نقل الترآيز الى آي آداة اخرى قبل تحقق شرط 
cus‏ ۴ 0stامعین.‏ فافضل مکان هو الحدث : 

Private Sub Text1_LostFocus() 

If Trim)Text1.Text "" = (Then 

Text1.SetFocus 


اعيد واآرر. لا تحاول استخدام هذه الطريقة الا فقي حالة ظهور الأداة. فلو 
مثلاء عليك اظهار النافذة قبل استخدام ۴١۲۳_103٩‏ استخدمتها في الحدث 
الطريقة: 

Private Sub Form_Load() 

Me.Show 

Text1.SetFocus 
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End Sub 
70الطريقة‎ de٣ 
قد تحتاج الى اعادة وضع أداة فوق الادوات او خلف الادوات وقت التنفيذ. الطريقة‎ 
ZOrder تفي بالفغرض لوضع الأداة فوق الادوات الاخرىء وقد تجعلما خلف الادوات‎ 
اخرى في حالة ارسال القيمة‎ 1: 
القيمة الافتراضية‎ 0 
'فوق جمیع الادوات‎ Command 1.Zorder 
'فوق جمیع الادوات‎ Command 1.Zorder 0 
'خلف جمیع الادوات‎ Cصmmصand1.Z0rder‎ 1 
بالنسبة للادوات معدومة النوافذ‎ Winodwاess‎ Con rهاك فانه عط ھ1 آأداة العنوان-‎ - 
من عاشر المستحيلات ان تظهر فوق اداة قياسية‎ Standard Con†اهاك تستطيع‎ . 
ان تفترض ان للنافذة طبقتين» الاولى خاصة للادوات القياسية والتانية خاصة‎ 
للادوات معدومة النوافذ والتي تكون خلف الطبقة الاولى دائم |. آذلك. الادوات‎ 
الحاضنة تكون خلف الادوات المحضونة بها. وبالنسبة لنوافذ النماذج» فيمكنك‎ 
استخدام هذه الطريقة لوضع نافذة نموذج فوق النوافذ الاخرى او خلفهاء ولكن لا‎ 
بصورة داثئمة 0۷sل٣ ا۷ يمكنك جعل نافذة النموذج في مقدمة نوافذ جميع تطبيقات‎ 
باستخدام هذه الطريقة.‎ 
ِ الطريقة‎ Refresh 
هذه الطريقة تطلب من الأداة اعادة رسم نفسها. عملياً لن تحتاج لاستدعاء هذه‎ 
يقوم برسم الأداة تلقائيا بمجرد تغيير قيم خصائصه |. ٤أئة8 اهuءا۷ الطريقة آثيرا فق‎ 
لإعادة رسم الأداة في حالات الضغط الشديد عليه: ٤أئة8 اهuاءأ۷ الا انك قد تجبر‎ 
Private Sub Command1_Click() 
31 
Dim X As Long 
For X =0 To 100000 
Label1.Caption =CStr)X( 
Label1.Refresh 
Next 
End Sub 
القدماء باستخدام الدالة أئة6 اةاوأ۷ قد يقترح علي أحد مبرمجي‎ 00٤۷٥ ٣أك في‎ . 
البداية ساشكره على اقتراحه الذآي ولكن سأرفض اقتراحه هنا لان وظيفة هذه‎ 
الدالة ليست مقصورة على اعادة الرسم فقط وانما تتعدى هذا الدور بكثير» فهٍي‎ 
لباقي اجزاء البرنامج وليس الادوات فقطء و١ أكوععه۴۲ خاصة لعملية توزيع المعالجة‎ 
مما يؤدي الى بطئ في السرعة . ليس هذا فقطء بل قد تؤدي الى شوائب برمجية‎ 
فهي تعطي فرصة آبيرة للمستخدم لاعادة الضغط على الزر 5وں8‎ . Cmmand1 
مرة اخرى قبل ان ينتهي الاجراء من اآمال الحلقة التكرارية الاولى . على العموم‎ 
شکكرا على الاقتراح!‎ 
الاحداث المشترآة‎ 
فلسفة البرمجة المسيرة بالاحدات‎ Event Driven Program ص٣9 تقتضي عملية‎ 
تنفيذ الاآواد عند حالات معينة تعرف بوقوع الاحداث او انفجار الاحدات. فعندما تصلك‎ 
رسالة امر من رئيسك في العملء فإن استجابتك للحدت تكون بتنفيذ ما يطلب‎ 
منك. آذلك الحال مع الادوات» فالاآواد التي تضعها لن يتم تنفيذها الا عند وقوع‎ 
اسمائها تتبع الصيغة: كا5 الحدت عليها. والاحدات عبارة عن اجراءات‎ 
الحدث_اسم الكائن‎ 
Form_Click () 
Command1_Click () 
ملاحظة: استخدم التعبير تفجير الحدث‎ ۴۲١ ۴۷٥٣ عوضا عن التعبیر‎ 
استدعاء الحدت. فاستدعاء الحدت هي عملية كتابة اسم الحدث‎ 
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لتنفيذه آما تفعل مع الاجراءات. اما تفجير الحدث فهي عملية 
> فأرجو ان لا اه8 اقنءأ۷ استدعاء الحدث من قبل نظام التشغيل و 
تتعجب من آثرة استخدامي لهذا المصطلح حتى نزول اسمي في 
القائمة الامريكية للمشتبه فيهم بالارهاب! 
32 
وليس اسم ۴0۲۳١‏ بالنسبة لنافذة النموذج» تسمية احداتها دائما ما تبدأً بالكلمة 
. وآما علمنا بوحود خصائص وطرق مشترآة N۳۴‏ النموذج الموجود في الخاصية 
بين الادوات. فان الاحداث لا تشذ عن هذه القاعدة: 
احداث الفأرة 
من اآوادك المستجابة تكون ردة فعل لاعمال درامية قام بها المستخدم %50 
بالفأرة. اول حدث تعرضه لك معظم الادوات عند النقر المزدوج عليها هو الحدث 
bCi)‏ والذي ينفجر في لحظة النقر على الأداة بزر الفأرة الايسر . والحدث )ا٣‏ 
وتعتقد انه لا ينفجر الا في حالة )»اا٣‏ يمتثل النقر المزدوج . لا تثق آتيرا في الحدث 
Cnec)80×‏ للاداتين عuا۷a‏ النقر بزر الفأرة الايسرء فعند قيامك بتغفيير قيمة الخاصية 
التابع للأداة. نفس e‏ ا€ تلقائيا بتفجير لحد OptionButton ۾g٦ڍ « Visual Basic‏ و 
و ×80اءاا التابعة للاداتين ×ع ل" 1اءآا الانفجار يحدت عندما تقوم بتغيير الخاصية 
.ComboBox‏ 
من الاساليب الخاطئة التي يتبعها قليل من المبرمجين هي كتابة اآواد في آلا 
اا۷ لنفس الأداة. رغم انك تستطيع عمل ذلك ب ععiا€٤اط2‏ و اا٤‏ الحدتثين 
Vl <‏ انها طريقة غير مرنة تسیب التشويشض على ا برنامجك تؤدي ڊa Basic‏ 
الى الاستغناء عن الفأرة . فلو قام المستخدم بالتقر المزدوج على الأداة. فان 

. اذا أن لابد من ءا٤01‏ سيتم تنفيذه اولا ومن ثم تنفيذ الحدث »ا٤‏ الحدث 
استخدام الحدثين في أداة واحدة» فاتمنى من صميم قلبي معرفة الحدث المقصود 
قبل تنفيذه حتى لا يستغني المستخدم عن فأرته: 
Dim bDbا€Cاick As Boolean‏ 'متغفیر عام 
Private Sub Form_Click()‏ 
Dim X As Single‏ 
bDbIClick =False‏ 
اعطاء مهلة نصف تانية 
X =Timer‏ 
Do‏ 
DoEvents‏ 
If bDbIClick Then Exit Sub‏ 
Loop Until Timer > X +0.5‏ 
'اأكتب الاآواد هنا 
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End Sub 

Private Sub Form_DbIClick() 
bDbIClick =True 

'اآكتب الاآواد هنا 


End Sub 

اذا آنت تريد معرفة المزيد من التفاصيل حول عملية النقر التي قام بها المستخدم 
اموقع مؤشر الفارة او الزر الذي استخدمه المستخدم سواء الايمن أو الايسر .. 
on‏ M0useDالخ‏ من تفاصيل دقيقة. فيسرني ان اعرض عليك الاحداث › 

التي تعطيك تفاصيل ااتر عن عمليات الفارة عل” MouseUp JÛ‏ و9 MouseMove‏ 
ftاSh.‏ المفاتيح المضغوطة » ١٥ا8‏ متغيرات مرسلة هي: نوع الزر المستخدم 
۷والاحداتي الصادي للمؤشر . × الاحداتي السيني للمؤشر 
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> فقد يكون الزر الايمن و /او الايسر و /او الاوسط ١0ا8‏ بالنسبة للزر المستخدم 
للفارة» هذا المتال يعطيك فكرة عن طريقة معرفة الازرار المضغوطة: 

Private Sub Form_MouseDown)Button As Integer, Shift As Integer, _ 

X As Single, Y As Single( 

If Button And vbLeftButton Then 

' الزر الايسر مضغوط 

End If 

If Button And vbRightButton Then 

' الزر الايمن مضغوط 

End If 

If Button And vbMiddleButton Then 

' الزر الاوسط مضغوط 

End If 

End Sub 

الخاص باحداث لوحة المفاتيح ۴ا5 .» فهو نفس المتغير ا5۴ اما المفتاح المضغوط 
والمتال التطبيقي للتعامل معه موجود في فقرة "احدات lلوحةãة KeyDOW‏ و KeyUp‏ 
فهي تمثل موقع ۷ و × المفاتيح" التي ستصل اليها قريب |. وبالنسبة للاحداتيات 
مؤشر الفارة بالنسبة للأداة نفسها وليس الشاشة» حيث تمتثل النقطة ( 


آل اتجه مؤشر الفأرة الى جهة × الزاوية العلوية اليسرى للأداة. وتزداد قيمة 

آلما اتجه مؤشر الفأرة الى الاسفل. ۷ اليمين وتزداد قيمة 

بمجرد ان يقوم المستخدم بتحريك المؤشر فوق ع٤M0۷عusاM0‏ يتم تفجير الحدث 
الأداة. ونهاية الحدث تكون لحظة خروج المؤشر عن خدود الأداة . اما في حالة 
سیتم تفجیره حتی لو تعدى المؤۇشر 0۷€ MعM01us‏ فان الحدث و٣اا‏ uامCap‏ الالتقاط 
في حالة آون مؤشر الفأرة ۷ و × حدود الأداة مما يترتب عنه قيم سالبة للاحداثيات 
زحف یسار او فوق الأداة. 

هي عملية الضغط بزر الفأرة وأا uامةC‏ ملاحظة: المقصد من آلمة الالتقاط 

على الأداة مع استمرار الضغط على الزر. 

فسیتم تفجيرهما بمجرد الضغط على مpلاعMous‏ و MouseDown‏ بالنسبة للحدثین 
زر الفأرة و تحرير الزر على التوالي حتى لو اختلفت الازرار» فلو قمت بالضغط على 
وأبقيته مضغوط |- ومن ثم قمت بالضغط على زر الفأرة الايمن»-زر الفأرة الايسر 
مرتين» وعند تحرير الازرار» فان 00W7عM01u5‏ بتفجير الحدت ٤1ء82‏ اھuاءا۷‏ فسيقوم 
مقبلان. pلاع‌usهM‏ انفجارین للحدث 

على الأداة. فان kءاا€‏ ااام اخيرا». في حالة قيام المستخدم بالنقر المزدوج 
ترتيب وقوع او انفجار الاحداث يتم على النحو التالي: 

MouseUp < -=-DbIClick < -MouseMove < -Click < -MouseUp < -MouseDown 
MouseMove مرة |خر“.<‎ - 

احداث الترآيز 

۴65ء1 عندما تستقبل الأداة الترآيز والحدث كا٤‏ ٥۴ا60‏ يتم تفجير الحدث 
عندما تفقد الأداة الترآيزء سواء أن ذلك بالفأرة او لوحة المفاتيح أو برمجي |. أما 
بالنسبة لنافذة النموذج» فهذه الاحداث تعمل جيدا بها شريطة عدم وجود أي أداة 
قابلة لاستقبال الترآيز. 

ملاحظة: لن تتم عملية تفجير الاحدات بالطريقة المتوقعة اذا فقدت النافذة 

ترآیزها بسبب الانتقال الى تطبیق اخر او استقبلت ترآیزها بع د 

الانتقال من تطبيق اخر . باختصار» احداث الترآيز لا تعمل الا بين 

نوافذ وادوات برنامجك فقط. 
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احداث لوحة المفاتيح 

ers‏ Kاتجة‏ من لوحة المفاتيح هي > »أكه6 اهنءأ۷ ثلاثة احداث مرنة يوفرها لك 
. فعندما يقوم المستخدم بالضغط على اي زر من ازرار لوحة KeyUp‏ ڪھ KeyDown‏ 
بتحويل المفتاح ء٤‏ أsئة8‏ اuaاsآا‏ سيتم تفجيره» تم يقوم ۸۴۷00۷7 المفاتيح» فالحدث 
»> وبعد ان كی۷۴۲6عK‏ تم يتم تفجير الحدتث ۸5٣٤11‏ المدخل الى مقابله في جدول 
بالانفجار. صلاليرفع المستخدم اصبعه عن المفتاح يبدأ الحدث 

في حالة قيام المستخدم الضغط ءأكة8 اةuاءآ۷‏ فيفجره ككع۷۴۲عK‏ بالنسبة للحدث 
] والحروق ESCAPE] [BACKSPACE|]« [ENTER‏ ] .[...+اtr€على‏ المفاتیح | 

المطبوعة. اما المفاتيح الاخرى آالاسهم او مفاتيح الوظائف وغيره |... فلا تؤدي 

لها نصيب من طلاyع×‏ و KeyDown‏ ولكن الاحدات sیع۷۲۲عK‏ الى انفجار الحدث 
متمتلة 96۲عأ"1 قيمة عددية من النوع ككع۷۴۲عK‏ الوقوع. المزيد ايضاء يرسل الحدث 
تمتل المقابل العددي للحرف المدخل في جدول أأعئK6۷۸)‏ في متغير عددي بالاسم 
:ASCII‏ 

Private Sub Form_KeyPress)KeyAscii As Integer( 

Print Chr$)KeyAscii (& " = "& KeyAsCii 

End Sub 

مرسل بالمرجع وليس القيمة اي يمكنك تعديل قيمته مما يترتب ٤۷۸5ع‏ المتغير 
عليه مرونة آبیر في التحكم في مدخلات المستخدمء هذا الكود متلا يحول جميع 
اتام الحروق المدخلة في آداة النص الى حروف آبيرة : 

Private Sub Text1_KeyPress)KeyAscii As Integer( 

KeyAscii =Asc)UCase)Chr$)KeyAscii((( 

End Sub 

واذا اسندت قيمة الصفر الى هذا المتغير» فانك قد الغيت عملية ارسال قيمة 
المفتاح الى الأداة المستقبلة له . هذا الكودذ مثلا يمنع المستخدم من كتابة أي 
:9 ...1 .0 شئ في أدا النص عدا الاعداد 

Private Sub Text1_KeyPress)KeyAscii As Integer( 

If KeyAscii < Asc")0 ("Or KeyAscii > Asc")9 ("Then 

KeyAscii =0 

End If 

End Sub 
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اCh.‏ $ و Asc‏ ملاحظة: تلاحظ انني اعتمد في الامتلة السابقة على الدالتين 

مع ذلك. يمكنك الاستغناء عنهما اذا آنت تعرق المقابل العددي 

5-1 للحرق المطلوب في جدول . 

وتمتل المفتاح ملع۸ بقیمتین الاولی ملاyعK‏ و Key own‏ يزودك الخدتین 

] فيما 4-1] و [ ]SH1۴۲‏ .[اR‏ ع وتمثل حالة المفاتيح [ أ۴أا5 المدخل. والثانية هي 
اقصد مضغوطة- او لا آما في الكود التالي:-اذا قت مفعوصة 

Private Sub Form_KeyDown)KeyCode As Integer, Shift As Integer( 

If Shift And vbShiftMask Then 

' ] مضغوط 5۳1۴۲المفتاح | 

End If 

If Shift And vbCtrlMask Then 

' ] مضغوط ا۲۸٤‏ المفتاح | 

End If 

If Shift And vbAltMask Then 

' ] مضغوط 1۲ا۸المفتاح | 

End If 

End Sub 

- هي القيمة عل۷€)0عK‏ بالنسبة الى قيمة المفتاح المدخل -المتمتلة في المتغير 
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> الا أأاعكئ۷Aع۸‏ الفيزيائية للمفتاح في لوحة المفاتيح. صحيح انها مثل قيمة المتغير 
او علامات آ #۲اعا اا" انها لا تمثل نوعية الحرف المدخل سواء أن صغير 

.... الخ» او حتى حروق عربية |> بء ت .... الخ. فهي ترسل داثما الق يمة@#؟% 
.... الخ . المزيد ايضاء لا يمكننا تعديل 4۸ء 8ء ٤‏ آ اقاأمة)٤‏ للحرق الانجليزي الكبير 
آما آنا فعلنا في الصفحة السابقة مع المتغفير ۴أ0٤۷عK‏ قيمة المفتاح المدخل 
.KeyAsCii‏ 

يتم تفجيرها عندما KeyUp‏ و ssئKeyPre. Key own‏ اخیراء احدات لوحة المفاتیح 
یکون الترآیز على الأ داة المكتوب فيها الكودء واذا وجدت احداث اضافية تابعة لنافذة 
النموذج وسألتني أي الاحداث سيتم تنفيذها اولا؟» هل هي الاحداث التابعة لنافذة 
النموذج ام الأداة التي عليما الترآيز؟ فساخبرك بان لديك عقلية نبيهة جدا جدا 
بسببه |! فان أتت قيمة الخاصية ٤أكة8‏ اهاءأ۷ا تستحق ان تكون مبرمج 

> فان النافذة ستفجر احداتها اولا ع٠٠٣٠‏ التابعة لنافذة النموذج تساوي Wع۷iاKeyP۲e‏ 
. فان نافذة عءاه۴ ومن ثم الأداة التي عليها الترآيزء اما ان أتت قيمة هذه الخاصية 
37 

2 ستتجاهل هذه الاحداث وأنها غير موجودةء ولن تفجر الا احداث الأداة 


Ee‏ التغيير 
بمجرد القيام بتغيير محتويات الاداة آتغیر النص عC۸3۸9‏ يتم تفجير حدت التغيير 

. ولكن الاعتماد على هذا الحدث فيه ٠٠×‏ او الخاصية ١٥0اأمة)‏ الظاهر في الخاصية 
CheckBoX 9‏ للأداتين ue‏ اچ۷ شيء من الخطأء فعند تغيير قيمة الخاصية 
بتفجير هذا الحدث. آذلك عند تغيıر OptionButt0n ۾gقزı jJ Visual Basic JJI‏ 
الظاهري للادوات آحجمها او الوانها لن يتم تفجير هذا الحدث. 


نافدة النموذج 


> فهٍي البؤرة ّ Basic‏ امViu‏ نافذة النموذج عزيزة على قلوب جميع مبرمجي 
والذني ص احبني منذ ۴٥۲٣۱1‏ من خلالها مع الاسم الابتدائي لها ٤أئة8‏ اةuءأ۷‏ نرى 
. ولحبي لها وتقديري للعشرة الطويلة بيني وبينها» ۷81 عشر سنوات مع بدايات 
قررت تخصيص فقرة خاصة بها في هذا الفصل وفصل اامل "الاستخدام المتقدم 
للنماذج" في هذا الكتاب» عساها ان تميزني بين المبرمجين آما ميزتها عن ساثر 
الكائنات! 
قبل ان اخوض في تفصيل نافذ ة النموذج واتحدت عن خصائصها» طرقها واحداتهاء 
atesاremp rm‏ ۴او قوالب النماذج » كعامامmص۲e‏ بودي التطرق الى فكرة القوالب 
وهي عبارة عن نماذج جاهزة التصميم ومضبوطة الخصائص تستخدمها في برامجحك 
0 اليومية بصورة متكررة دون الحاجة الى اعادة تصميمها من الصفر . اختر الامر 
وستفهم الفكرة من قوالب النماذج الجاهزة. ففي صندوفق أءعزه۴۲ من قائمة ۴٥۲۳‏ 
الحوار الذي سيظهر امامك. ستجد العديد من النماذج التي تستخدمها آثيرا في 
برامجك الاعتياديةء واذا أتت لا تملا بريق عينيك» صمم يا مصمم النماذج آما تريد. 
-او المسارالمحدد في | ۲۳۶٥۴]عاaامem‏ ۷898|1۲ ومن تم قم بحفظها في المجلد 
- ستلاحظ وجود نافذتك5" هام0 في صندوق الحوار ۸۲ ۳۵€ E۷۲٥۸‏ خانة التبویب 
بين القوالب السابقة. عاةام ۲٥۴٣‏ آقالب 
خصائص النموذج 
بعد ان تبرق نافذة النموذج امام عينيك» ستبدأً بوضع الادوات عليها ومن ثم 
. القيمة عار5StامdاBo‏ تحجيمها. وبعد ذلك تقوم باخت يار شكل حدودها مع الخاصية 
لبرامجحي لانها S٤۴٤١‏ هام5 لا استخدمها الا في الشاشة الافتتاحية 0-N0٣٠۴‏ 
38 
> فتمنع المستخدم من امکانيات ۴83۲ ۱٤آ‏ تخفي حدودها وحتى شريط عنوانها 
تحريك النافذة وتسبب له حالة من الندم على تشغيل برنامجك ان لم يقم بالضغط 
] آي یتمکن من اغلاق Shi + ٤5٥‏ + |اCtr]‏ او ] Del‏ +At+اtr€على‏ المفاتیح [ 
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فستمكن المستخدم من تحريك النافذة بانسيابية عاطS1z2-2‏ برنامجك. اما القيمة 
ان-مريحة وتمكنه ايضا من اعادة تحجيم النافذة بالشكل الذي يناسبه ولن يقوم 
3-Fixed Dailog‏ و eاSing 1-۴iXxed‏ شاء اللّه- باستخدام المفاتيح السابقة. القيمت ان 
تمنع المستخدم من اعادة تحجيم النافذة مع ابقاء شريط العنوان وهي قيم قياسية 
> والفرق بين القيمتين يظهر جليا sس0۷ل١Wi‏ تطبيقات كع×80 وهاةi٥‏ لصناديق حوار 
على شريط ع۳17 M1۸1‏ والتصغير ع٥2أ"۳‏ 13×1 في ان الاولى تسمح بظهور زر التكبير 
leاSiab-5‏ و Windowاo0" 4-۴1Xed‏ العنوان اما الثانية فلا. استخدم القيمتين 
لتصغير ارتفاع شريط العنوان وهي موضة لنوافذ اشرطة الادوات. d0W٣¡Wاەهآ‏ 

لكن مع حدود 0-۸0۸۴ توجد قيمة سادسة لشكل الحد اشبه ما تكون بالقيمة 

> ولن تستطيع مشاهدتها الا ان أتت القيمة الموجودة في 3-0 تثلاثية الابعاد 

> مع اختيار عماج۴ تساوي ×860ا١۲ا”ه€‏ خالية. وقيمة الخاصية ١٥أمة٤‏ الخاصية 
eاBorderStyمن‏ الخاضية السابقة . وهاiة0‏ 4ع×3-۴1 القيمة 

تستطيع اظهارء اخفاء او تمكين صندوق التحكم او ازرار التكبير والتصغير عن طريق 

. النص الذي سيظهر في شرıيط MinBUt0¬‏ و MaxButtom .ControlBox‏ الخصاثئص 
. تستطيع توسيط ١٥أأمهة٤‏ عنوان النافذة هو نفس النص الموجود في الخاصية 

من قيم الخاصية 2-)٥۸١6۲١‏ النافذة وسط الشاشة عن طريق اختيار القيمة 

> وبامكانك منع المستخدم من تحريك النافذة عن طريق تzوJı‏ ¬ټStartupPositi‏ 
فهي تضيف زر ۲35۸583۲ Sh'0W1١"‏ . اما الخاصية عكاة۴ الى عاbاةعM0۷‏ قيمة الخاصية 
بحیث یتمکن ۲ھا؟ بجانب زر "ابد" او 83۲ )ا Windows‏ الى شریط المھام 
المستخدم من تنشيط نافذة برنامجك بمجرد النقر على هذا الزر . اخيرا» خاصية 
التي تمكنك من تكبير النافذة لتغطي آامل الشاشة.« تصغيرlk WindowState gl‏ 
استرجاع الحجم الطبيعي لها. 

خصائص الصور: 

تحدد ما اذا أتت اعادة رسم نافذة النموذج تتم ۸6d ۲3W‏ 10ا۸ عن طريق الخاصية 
بواسطة اآوادك . في الحالة الاولى فان سرعة اعادة ع‰اة۴ او یدویا ۲٣٥‏ تلقائيا 
الرسم تكون اسرع من الحالة الثانية؛ الا انها تستهلك الاق الكيلوبايت ات في الذاآرة 
المتاحة للبرامج الاخرىء لك ان كعc‏ ا souعمR‏ mعSyst‏ مما يقلل من مصادر النظام 
6 تستهلك ۲٥اه٤‏ ع٥۲۲۵‏ مع عمق لوني 800×600 تتخيل نافذة حجمها 

نوافذ جشعة 2 برنامجك 9 او 5 ميجاء ولك ان تتخیل1 ما يزيد اوا 
مفتوحة»ء وآم من البطء في التحميل والحجز الكبير ڦي الذاآرة؟ من 
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لن يتم تفجيره ابدا طالما أتت قيمة "اة۲۴_ ۴٠۲۳٣‏ المهم ان اذآر هنا بان الحدث 

. باختصار» لا تستخدم هذه الخاصية الا عند الحاجة الماسة ع٥۷ا۲۲‏ هذه الخاصية 

.... الخ بين سطور الحدث ١۲٣۴ء‏ ع" أا فقطء وحاول وضع اآواد الكتابة والرسمآ 
.Form_Paint‏ 

.... الخ بكثرة. فانصحك بتغيير قيمة ٣٤‏ اء ٤|٣٤٠٤‏ اذا آنت تستخدم طرق الرسم 
حتى تزيد سرعة طرق الرسم بمقدار الضعف لان عكاة۴ الى كاماtأمCoمiا€‏ الخاصية 
ولن يقوم باعادة الرسم الا ١0أوع۲‏ وnأمماا€‏ لن يقوم بإنشاء منطقة Visual Basi‏ 
للمناطق التي تحتاج الى اعادة رسمء اما اذا لم تستخدم طرق الرسمء فالقيمة 
تكون مناسبة لهذه الخاصية. ۲۲U٥٤‏ 

Device Context‏ تخيرك فیما لو آنت ترید إنشاء سياق رسم 150٤٥‏ الخاصية 
لنافذة النموذج ام لاء سياق الرسم عبارة عن ترآيب خاص بنظام التشغيل يحمل 

. فاجعل ١٤۲ء۴‏ مواصفات وبيانات الصورة . اذا آنت لا تنوي وضع صورة في الخاصية 
آي تقلل من استهلاك مصادر النظام مع العلم ان عءاة۴ قيمة هذه الخاصية 

لن تعمل معك الا اذا قمت بتحميل صورة على نافذة النموذج ۸0٤€‏ الخاصية 

قيمة مؤقتة تزول مباشرة بعد زوال الصورة. ۸0٤€‏ فستحمل الخاصية 

التابع لنافذة ×60 ام٣ا‏ مه تمتل الرمز الذي يظهر فقي صندوق التحكم 10١‏ الخاصية 
النموذج والرمز الظاهر على زر النافذة في شريط المهام » هذا إذا أتت الخاصية 
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) فان نظام 0١8‏ اما ان أتت قيمة الخاصية ) ۲1۲ue‏ تښسغوي ShowInTaskbar‏ 
تساوي ×0 0١۲0۱8‏ التشغيل يضع رمز افتراضي شريطة أن تكون قيمة الخاصية 
EXE File Icon‏ . من الضروري أن تعلم انه لا يمكنك تخصیص رمز البرنامج 1۲٥‏ 
يخيرك بين احد رموز نوافذ النماذج التابعة ٤أئة8‏ اةuءآ۷ا‏ بشكل مستقل» ف 
الموجودة في صندوق ع)ة1 من خانة التبويب 1٥0١‏ لمشروعك عن طريق القائمة 
Properties‏ ectزPحوار‏ خصائص المشروع . 
تمكنك من تحميل ملف صورة ووضعه في داخل نافذة النموذج» ٤۲ء۴‏ الخاصية 
.1B .BMP‏ 61۴. 6[تدعم هذه الخاصية هيئات مختلفة من الملفات هي : 

. تستطيع تحميل ملف الصورة وقت التصميم باختيار CUR pl‏ و9 ICO «EME «WMF‏ 
الملف من صندوق حوار الخاصية» او استخدام طريقة اخرى افضلها آثيرا و هي 
ومن ثم ١03۲(مiا٤‏ الصورة من البرنامج الذي يعرضها الى الحافظة ۷م0٥‏ نسخ 
. واذا اردت وضع الصورة في وقت التنفيذ» ال۴ من القاثئمة عأكة۴ لصقها باختيار الامر 
تمكنك من فعل ذلك او سرقة صورة تابعة لكائن آخر: ٤۲ء۴‏ ١ه‏ ها فالدالة 
۴orm1.Picture =L0adPicture )"C:\Turki.BMP‏ ” ('تحميل صورة وجهي الوسیيم! 
1إ ۴0rm2.Picture = Form 1.Picture ` Form‏ نفس الصورة الموجودة في النموذج 
40 
هي أسناد يحتوي على خصائص اضافية آعرض ١۲ء۴‏ ملاحظة: الخاصية 
الصورة وارتفاع وغيرها: 
Print Me.Picture.Height‏ 
Print Me.Picture. Width‏ 
0ا تمكنك من استخلاص رمز 1034۲1٤۷۲٤‏ متغيرات جد يدة الى الدالة ۷86 اضاف 
]جد شرح وافي لها في مكتبة » 1٤0‏ من مجموعة رموز مضمنة في ملف 
التي ع۲ ۴ic†uمSav‏ . فما المانع من ذآر زميلتها ۲٤‏ ا†ء۴ ١ة‏ ها وبما انني ذآرت الدالة 
تمكنك من حفظ الصورة الى ملف: 
SavePicture Form1.Picture, “C:\Aseeri. BMP”‏ 
هي نفس هيئة ع۲ ۴u‏ ع۷هS‏ التي تخفظ بها الدالة أة۲۳١١٠۴ملاحظة:‏ الهيئة 
فيتم J۲6‏ و 61۴ الصورة التي حملت في الخاصية» باستتثناء الهيئات 
Pتحويلهما‏ الى الهيئة . 
خصائص الرسم: 
تمتل الرسمة الموجودة على نافذة النموذج الناتجة من استخدام 1۳39٥‏ الخاصية 
.... الخ» وستكون دائما فوق الصورة الموجودة في الخاصية ١€‏ اء ٠۲ا٣‏ طرق الزرسم 
ان صح التعبير - من هذه الخاصية الا-. لن تستطيع استخدام او الاستفادة ع۲ "iu‏ 
rue‏ "هي . AutoRedraw‏ ان أتت قيمة الخاصية 
تحدد عرض او سمك الفرشاة المستخدمة لرسم الخطوط 1ال¡۷Wسهrا0D‏ الخاصية 
فهي تحدد 0۲اه€عاه۴ اما الخاصية عاi۲z€‏ و ا۴Se. Line‏ والاشکال بطرق الرسم 
فهي تمكنك من عا,اWSه0۲‏ اللون الافتراضي للطرق السابقة . بالنسبة SS‏ 
عcاCirو‏ » Line‏ تحديد شكل النقش لرسم الخطوط والدوائر باستخدام الطريقتين 
للمنطقة الداخل ية من المربع او الدائرة مع لون عاا؟||أ۴ آذلك تمكنك منه الهكية 
CurrentY‏ و Current‏ . اما الخاصيتان ١٥۱٥٣||أ۴‏ التعبئة الموجود في الخاصية 
intاP. Line‏ فتمتلان الاحداتيات الحالية التي تستخدم لطرق المخرجات والرسم 

.. الخء واللتان تتأثران بكل عملية رسم او خرج باستخدام الطرق السابقة . اما 

«géPrint‏ تحدد اسلوب خرج الطباعة باستخدlم‏ |Jێۈمر‏ « Font Transparent‏ الخاصية 
فسيكون لون خلفية الطباعة هو نفس لون ما۴2 فإن أتت قيمة الخاصية تساوي 
فإن خلفية الطباعة ٥د٣٠‏ للنموذج» أما إن أتت قيمة الخاصية 82۸٤0010۲‏ الخلفية 


: ا لخاصية‎ raw Mode 
تعتبر الخاصي ة‎ 0۲۷×10٤ من اقوى خصائثص نافذة النموذج الرسومية» فعن طريقها‎ 
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- مع النقاط ٥٣ذا‏ آ-تحدد طريقة التفاعل بين الرسوم التي ترسمها بطرق الرسم 
13-c0py Pen‏ الموجودة على نافذة النموذج. القيمة الافتراضية لهذه الخاصية هي 
وتعني ان اللون سيظهر اما هو مطلوب» فالمربع الابیض سیکون ابيض ولو رسم 
على مربع اسود. والدائرة الحمراء سترسم حمراء ولو على سطح ارجواني . الا انك 
في بعض الحالات الفنية تود ان ترسم رسوم تتأثر بالالوان الموجودة على لوحة 

:1- 2الرسم وهذا متال واقعي تجده آثيرا في برامح الترآیب شكل 

(1) 

(ب) 

)ج( 

على مخرجات الرسم. 0٤‏ WMه,Dr‏ : تاتير الخاصية 

)١(‏ ان المستطيل الازرق الذي رسمناه على المنطقة 

البيضاء قد رسم بشكل جيد جدا» ويظهر الفرق في الفن التصميمي واضحا بين 
الشكلين (ب) و (ج)» ففي الشكل (ب) قمنا برسم المستطيل الازرق اما نريده 

" ولن يتمكن المستخدم من رؤيته» 50ازرق مما اتر وغطى على النص المكتوب "% 
بحيث عM0d‏ ها0 اما في الشكل (ج) فقد استخدمنا القيمة المناسبة للخاصية 
تقلب اللون الازرق الى ابيض في خالة الرسم فوق اللون الاسود . لمعرفة آيف تتم 
عملية تغيير الالوان» عليك ان تعلم ان الالوان في حقيقتها م | هي الا اعداد تتحول 
> اللون الذي تستخدمه يسمى 10011101010 بالنظام الثنائي الى ارقام شبيه ب 
42 

Screen‏ . واللون الموجود على لوح او سطح الرسم یسمی ۴٥٣۸ ٤010۲‏ لون القلم 
تقوم بتطبيق المعادلة l|lتlلöı: Color öةميقaلJlê . 15-MergePen öةصlخlJ DrawMode‏ 
S =S OrP‏ 

واللون الموجود على الشاشة هو 170= 10101010 فلو أن | للون المستخدم 
سيكون: ۴e١‏ عوإMe-15‏ من تأثير القيمة-. فان اللون الناتج 85= 01010101 
S =01010101‏ 

P =0 

S =S Or P 

S =10101010 Or 01010101 

S =1 

اردت معرفة جميع المعادلات الت ابعة للقيم . اذا 255 وهو 11111111 
الاخری»ء 

raWModeطبما‏ جدول جميل جدا تصل اليه بكتابة الجملة " N150١‏ فمكتبة 

Property . سرٳڦأll ف„‎ "Index 

: ةيصاخلاكcaاleM‎ ode 

في بداية الفصل وبالتحديد عند فقرة "خصائص الموقع والحجم " ذآرت ان الوحدة 
المستخدمة لقياس احداثيات مواقع وطول وعرض الادوات هي الوح دة الموجودة 
ئامل قيم تمتل وحدات 8 . توفر لك هذه الخاصية عءلN0ءاةءS‏ في الخاصية 

0.2 تعادل "2-۲۴0 سم» 0.567 والتي تعادل م1-1۷تستخدم لاقياس هي: 

Wis 10‏ تعادل 4-character‏ تعادل نقطة واحدة على الشاشة»ء Pixel‏ -3 انش» 
تعادل ملم ۲عاع"iاMi-6‏ تعادل انش واحد. c۸ہ5-1‏ عامودیاء 240 sمpاWا‏ افقیا و 
وحدة قياس خاصة يتم تعريفها من ١عءل-0‏ تعادل وlحدڏ‏ سم و 7-Centimeter‏ واد« 
قبل المبرمج. 

ما تعودان بعرض وارتفاع النافذة دائما بالوحدة  Height‏ و Width‏ الخاصيتان 

تؤتر على الوحدة المستخدمة في الادو ات علM0ءاهء؟‏ فالقيمة التابعة للخاصية 
المحضونة فقط وليس الحاضنة» اما لمعرفة عرض وارتفاع نافذة النموذج بوحدة غير 
واستعلم عن العرض عن عM0dءاةء؟‏ . قم بتحديد الوحدة في الخاصية مأاآ إل 
eHeightاcaكوالارتفاع‏ عن طريق الخاصية : d†1أWعاةcع5Sطريق‏ الخاصية 
Private Sub Form_Paint()‏ 
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Cis 
'بالبكسىل‎ ScaleMode =vbPixeاs‎ 
Print ScaleHeight 
43 
Print ScaleWidth 
End Sub 
تعودان بعرض وارتفاع أ٣ا HeigاعاSca و eWidthاSca في الحقيقةء الخاصيتان‎ 
المساحة الداخلية لنافذة النموذج» بينما تشمل الخاصيتان‎ Width و‎ Height 
.| اللمساحة الداخلية والخارجية المتمتلة في سمك حدوده | وارتفاع شريط عنوانه‎ 
مع ذلك. لن تفرق آثيرا معك فنادرا ما تحتاج المساحة الخارجية للنافذة. على‎ 
العموم هذا الكود يطبع الفرقفق:‎ 
Private Sub Form_Paint() 
Cis 
ScaleMode =vbTwips 
Print Height -ScaleHeight 
Print Width -ScaleWidth 
End Sub 
هي وحدة تعرف من قبل المبرمج» تستطيع تعريف وحدة 6۲ءلا-0 اخيراء القيمة‎ 
› بك عن طريق اسناد قيم الى الخصائص‎ ةصاخ5caاeHeight‎ .ScaleWidth 
ScaleLeft و‎ Scale op تۈلlح قد تحتاج تعريف وحدة قياس رسم خاصة بك في‎ . 
نادرة تعتمد على عرض المخططات الرسومية بشكل استتثنائي.‎ 
طرق النمودج‎ 
› ان الفقرة السابقة تحدتت عن وحدات القياس التابعة للخاصية‎ امب5caاeعMode‎ 
هذه الطرق تمكنك من اجراء عملية ۷عاةءS و ×عاهء5 فسأبداً بالتحدث عن الطرق‎ . 
تحويل القياسات بين الوحدات السابقة افقيا وعاموذي |. ارسل القيمة تم وحدتها‎ 
الاصلية تم الوحدة المطلوبة:‎ 
'الی sاع×ا۴ التحویل من‎ ps 
Print ScaleX)100, vbPixels, e 
الطريقة‎ S10۷ تخفيه» نستطيع ان نقول عل۳11 تؤدي الى اظهار النموذج والطريقة‎ 
ولكن على شكل طرق: عاطأوالا بكل ثقة | 01:/ لحه‎ 
Form1.Show ` Form1.Visible =True 
Form1.Hide ' Form1.Visible =False 
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طرق الرسم‎ 
تمسح جميع الرسوم الموجودة على النافذة وتصفر الاحداتيات كا٣ الطريقة‎ 
CurrentX و‎ CurrentY ) يتٿlدحالا تعود بالقيمة العددية "اه۴ )» والطريقة0 , 0الى‎ 
( على النافذة: ۷ ,×للون الموجود في الاحداتي‎ ) 
Private Sub Form_Load() 
'تحميل صورة وجهي الوسيم!‎ 
Form1.Picture =LoadPicture )"C:\ Turki. BMP”( 
End Sub 
Private Sub Form_MouseMove)Button As Integer, Shift As Integer, _ 
X As Single, Y As Single( 
Label1.BackColor =Point)X, Y( 
Label1.Caption =Hex$)Point)X, Y(( 
End Sub 
للنقطة» ۲ ,×تمكنك من رسم نقطة على النافذة بارسال الاحداتي ( أاع۴5 الطريقة‎ ) 
سيكون لون النقطة هو نفس اللون الموجود في الخاصية‎ ۴٥۲6٣ او بامكانك ۲هاه‎ 
ارسال اللون:‎ 
Me.ForeColor =vbBlack 
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Pet 0‏ , 0 ( 'نقطة سوداء 

PSet )500, 500), vbRed‏ 'نقطة حمراء 

والتي تضيف طعا5 وطرق الرسم الاخرى - تدعم الكلمة المحجوزة- ع5 الطريقة 
الموجودة في الخاصيتان-) الى الاحداتيات الحالية Y۲‏ ,×الاحداتيات المرسلة ( 
CurrentX : gCurrentY‏ 

Private Sub Form_Paint() 

Dim X As Integer 

Cis 

Me.CurrentX =0 

Me.CurrentY =0 

For X =0 To 100 
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PSet Step)5, 5( 

Next 

End Sub 

) والنهاية ۷1 ,1×تمكنك من رسم الخطوط بارسال احداتيات البداية ( ١٤٣٠ا‏ الطريقة 
):X2, Y2(‏ 

ForeColor =vbGreen 

Me.Line )0, 0) - (Me.ScaleWidth, Me.ScaleHeight‏ ( 'خط اخضر 

Me.Line )0, Me.ScaleHeight) - (Me.ScaleWidth, 0(, vbRed‏ 'خط احمر 

و Current‏ ) فان القيم الحالية للخصائص ۲1 ,1×في حالة تجاهلك للاحداتي ( 
هي نقطة البدlاية: CurrentY‏ 

Private Sub Form_ MouseMove)Button As Integer, Shift As Integer, _ 

X As Single, Y As Single( 

Me.Line ) -X, Y( 

End Sub 

8 تمكنك من رسم المستطيلات عوضا عن الخطوط بارسال الحرف ٥٤٣ا‏ الطريقة 
ا1 ۴واللون : عا۴5ty‏ مع العلم ان النقش سيكون النقش المحدد في الخاصية 
ForeColor =vbWhite‏ 

B‏ , ,)200 ,200) - (0 ,0( €ہLi‏ 'مربع ابیض 

Line - Step (200, 200), vbBاue, B‏ 'مربع ازرق 

8۴دون استخدام الخصائص» ارسل الحرفين :-ولتلوين المربع مباشرة 

ForeColor =vbWhite 

Lin€ (0, 0( - )200, 200), , BF‏ 'مربع ابیض 

Line - Step (200, 200), vbBاlue, BF‏ 'مربع ازرق 

التي من الواضح انها لا ترسم نجوم ! وانما ع»ا١۲أ€‏ واختم فقرة طرق الرسم بالطريقة 
دوائر بارسال احداثي نقطة مرآز الدائرة ومن ثم طول قطرها: 
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ForeColor =vbWhite 

(Circle (Me.ScaleWidth /2, Me.ScaleHeight /2‏ , 500 `دائرة بیضاء 

Circle (Me.ScaleWidth /2, Me.ScaleHeight /2(, 200, vbGreen‏ 'دائرة خضراء 
. وانما بالقيمة 8۴ آما في الطريقة 8۴ عملية تلوين الدائرة لا تتم باستخدام 
عا5tyا¡۴مع‏ النقش . ۲٣هام ۴|٣‏ الموجودة في الخاصية 

هي امكانية رسم الاقواس بتحديد ١٣|۲أ٤‏ من الاشياء التي تعجبني في الطريقة 
adi‏ Rزاوية‏ النهاية والبداية بوحدة الراديان : 

Const PI =3.14 

'أنصف دائثرة فتحهتها الى الاعلى 

Circle )Me.ScaleWidth /2, Me.ScaleHeight /2(, 1000, , 0, PI 

أنصف دائرة فتحهتها الى الاسفل 

Circle )Me.ScaleWidth /2, Me.ScaleHeight /2(, 800, , PI, 0 

"ربع دائرة 
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Circle )Me.ScaleWidth /2, Me.ScaleHeight /2(, 500, , 0, PI /2 

هي امكا نية ايصال اطراف الاقواس عاء۲|٤‏ من الاشياء التي تزيد من قوة الطريقة 

> ولعمل ذلك كأاة۸ بمرآز الدائرة وتلوين جزء معين آما يحدث مع المخططات 
يشترط استخدام القيم السالبة: 

Const PI =3.14 

FillStyle =0 

FillColor =vbBlue 

Circle )Me.ScaleWidth /2, Me.ScaleHeight /2(, 1000, , ) -PI(, ) -PI /2( 

بين القطر ٥أأة۸R‏ . استخدم المتغير لوضع النسبة 5۴ ]اا۴ ولرسم الق طع المكافئ 
العمودي والافقي: 

'القطر العمودي يعادل ضعف القطر الافقي 

Circle )Me.ScaleWidth /2, Me.ScaleHeight /2(, 1000, ,,, 2 

5فهي اقوى طرق الرسم والتي ظهرت منذ الاصدار » ۲٤‏ uأءأ۴امأ۴a‏ اما الطريقة 
وتطلب منك ۴٤۷۲ء۴‏ الغرض من هذه الطريقة هو رسم صور تابعة للكائن او الخاصية 
متغيرات ! لا تخف وتتجنب استخدامها لكثرة المتغيرات. فالمطلوبة هي التلات 10 
الاولى اما الباقية فهِي اختياريةء بالنسبة للمتغيرات فالأول هو أسناد الصورةء والاريع 
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التالية تحدد بها المنطقة التي سترسم الصورة عليهاء والاربعة التالية تحدد 
المنطقة التي تريد رسمها فعلا من الصورة الاصلية» والمتغير الاخير يحدد اسلوب 
رسم الصورة على الهدف» وهو يتطابق تماما مع ما اوضحته سابقا حول خاصية 
.DrawMode‏ 

من فعل اشياء آثيرة على الصورء آ قلبهاء عكس عu۲اء¡۴†”أج۴‏ تمكنك الطريقة 

متال يعرض لك 04٥.21۴‏ الوانها» تمديدهاء تحريكها .... الخ» تجد في ملف الكتاب 
وهذا الجزء الاساسي منه: ۲٥‏ uااءآ۴اPain‏ تطبيقات عملية على الطريقة 
Private Sub Form_Paint()‏ 

Cis 

PaintPicture Picture1.Picture, 0, 0, IWidth1, _ 

IHeight1, IX2, IY2, IWidth2, IHeight2, iDrawMode 

End Sub 

موجود ٤٣ا٣٥‏ ومازال 

لا يزال اأ٣۴‏ القديمة» فالامر 8۸51٤٣‏ محتفظا بسمات لغة ءأیة6 اةuءا۷‏ مازال 

. ليس هذا فقطء بل مازالت الصيغ ۷86 موجود منذ منتصف الستينات حتى الاصدار 
Basic‏ اVisua"‏ والعادية مدعومة في :القديمة االفواصل المنقوطة " 

Pint"فاصلة"‏ ,"عادية" 

Pint"فاصلة"‏ ;"منقوطة" 

تقني |- لا يعتبر-مصنف ضمن طرق الكائنات. الا انه ٣ا۴۲‏ ملاحظة: رغم إن 

حتى تتزامن 86251٤٥‏ اهاءأا طريقة. فهو حالة خاصة تعمدها مطوروا 
€٣8A1التوافيقية‏ مع لغة . 

> هو نفس القيم الموجودة في الخاصية ۴۲٣٤‏ نوع وحجم الخط الناتج من الامر 
تفيدان لمعرفة ارتفاع وعرض النص وتختlز T1 extWidth‏ و Font Jlgدll . TextHeight‏ 
باختلاف نوع وحجم الخط لتتمكن من اختيار الاحداثي المناسب لبدء الكتابة آما 
في الكود التالي الذي يكتب النص في وسط النافذة: 

Dim sText As String 

Font.Size =20 

»ا s"ترآي‏ العامري" = 

CurrentX ) =ScaleWidth -TextWidth)sText / ((2 

CurrentY ) =ScaleHeight -TextHeight)sText / ((2 
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Print sText 
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اخيرا». جميع المخرجات النصية عبارة عن نقاط تتشكل في صورة حالها آحال طرق 
هي المسئولة عن حفظ المعلومات | لكاملة لهذهعءوة"1 الرسمء والخاصية 
المخرجات. 

احداث النموذج 

يحتوي على احداث» معظم ك8 اهنءا۷ نافذة النموذج هي اآثر أسناد من أسنادات 
احداتها تم شرحها في فقرة "الاحداث المشترآة ". اما الاحداث الخاصة بها فتفجر 
من بداية تحميل النافذة حتى اغلاقها بهذا الترتيب: 

<) -Deactivate (< -Paint < -Activate < -Resize < -Load < -Initialize 
.Terminate < -Unload < -QueryUnload 

الا "اة فلا يتم تفجيره بعد الحدث عأح۷أاعمع0D‏ ملاحظة: بالنسبة للحدث 

في حالة قيام المستخدم بتحديد نافذة اخرى في نفس البرنامجء 

واذا عاد المستخدم الى النافذة الاولى» فان السلسة السابقة تبدأً 

.. >من الحدت‎ -Paint > -Activate 

: ثدحلا]nitialize‎ 

يتم تفخير هذا الحدث بمجرد استخدام أسناد النموذج في اآوادك او انشاء نسخة 
بتفجير هذا الحدث مبكرا جدا أي قبل اوج8 اهuءا۷ا‏ جديدة من أسناد النموذج» يقوم 
انشاء نافذة النموذج ووضع الادوات عليها: 

۴2 'التابع لنموذج 7اه اا۸[ يتم تفجير الحدتث 

Dim X As Form2 

Set X =New Form2 

قد تستفيد من هذا الحدت لتعيين قيم ابتدائثية للمتغيرات التابعة لنافذة النموذج 
قبل انشاء النافذة: 

Dim sUserName As String 

Private Sub Form_Initialize() 

€serNamلs"'مستخدم‏ جدیر" = 
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End Sub 

: ثدحلاk‎ 0d 

بمجرد البدء في عملية تحميل النافذة باستخدام الدالة ١۵٥ا‏ يتم تفجير الحدث 
:Load‏ 

Load Form2 

او حتى عند قيامك باستخدام احد خصائصھا او استدعاء طرقها: 

۴2 'التابع لنموذج 1٥٠۵4‏ يتم تفجير الحدث 

Caption‏ "قبل تعديل قيمة الخاصية 

ForM2.۳Caption‏ = "النافذة التانیة" 

لا يتسبب في ظهور النافذة فهو يقع عند 103١‏ من الضروري معرفة ان الحدث 
تحميل وانشاء النافذة فقط. فلا تحاول استخدام الاوامر التابعة للواجهة آ 

او طرق الرسم .... الخ. قد تستفيد من هذا الحدث بوضع قيم ابتدائية كا٤ S۴٥‏ 
أ: 


Private Sub Form_Load() 

Text1.Text =sUserName 

End Sub 

: الحدث‎ Resize 

یتم تفجیره او آلما قام ٥2یع۸‏ بمجرد ان تظهر نافذة النموذج. فان الحدث 
المستخديم بتحجيم النافذة وتغفيير حجمها» قد تستخدم هذا الحدث بكثرة عند 
رغبتك في محاذاة الادوات او تفيير حجمها آلما قام المتسخدم بتغيير حجم النافذة: 
Private Sub Form_Resize()‏ 

' توسيط الاداة على النافذة 

Command1.Move )Me.ScaleWidth -Command1.Width / (2, _ 
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)Me.ScaleHeight -Command1.Height / (2‏ 
End Sub‏ 
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Activate‏ الحدث : 
- او بمجرد آون النافذة ۸6576 بعد الحدث-يتم تفجير الحدث بمجرد ظهور النافذة 
. مع ذلك لن يتم تفجير الحدث اذا انتقل س0لك١ W۷!‏ ع۷ا هي النافذة النشطة 
المستخدم من برنامج آخر الى برنامجحك. أي أن هذا الحدث لا يتم تفجيره إلا عند 
-التنقل بين نوافذ برنامجحك فقط . قد يفيدك هذا الحدتث في تغيير محتويات النافذة 
آتجديث البيان ات- بمجرد قيام المستخدم بتغيير محتويات نافذة اخرى في نفس 
البرنامج: 
Private Sub Form_Activate()‏ 
Label1.Caption =Form2.Text1. Text‏ 
End Sub‏ 
Paintالحدث‏ : 
يتم تفجير هذا الخدث آلما دعت الحاجة الى اعادة رسم النافذة. فلو قمت بوضع 
له "أ۴ النافذة س فوق النافذة ص ومن ت م تعود الى النافذة سء قان الحدث 
نصيب من الوقوعء آذلك عندما تخفي اجزاء من النافذة ومن ثم تظهرها سيتم 
تفجير الحدث . من الضروري جدا جدا اخبارك بانه في حالة آون قيمة الخاصية 
لن یتم تفجیره حتی تحج البقرة اھ۴ فان الحدتث AutoRedrawWw يوlwږت ۲۲u۲e‏ 
على قرونه ا! افضل اآواد يمكنك وضعها بين سطور هذا الحدٿ هي اآواد الرسمء 
الكود التالي يرسم داثرة تغطي معظم اجزاء النافذة: 
Private Sub Form_Paint()‏ 

FillStyle = 

Circle J)ScaleWidth /2, ScaleHeight 
IIf)ScaleWidth < ScaleHeight, ScaleWidth, ScaleHeight / (2, 0 
End Sub 
في ة۴ من المفيد ان اذآر هنا بان تفيير حجم النافذة يؤدي الى تفجير الحدث‎ 
لا أ"أةP حالة ان قام المستخدم بتكبير الحجمء اما عند تصغير الحجم فان الحدث‎ 
يتم تفجيره» وذلك لانه لا توجد حاجة لاعادة رسم اجزاء من النافذة. فقد تلاحظ في‎ 
الكود السابق انك اذا قمت بتصغيير حجم النافذة. فان الداثئرة لن يتم اعادة رسمهاء‎ 
لاعادة رسم الدائرة هي طريق الحدث ءأكة8 اعنءأ۷ والفكرة الذاية التي قد تجبر‎ 
:Resize 
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Private Sub Form_Resize() 
Form_Paint 
End Sub 
رغم ان الكود السابق صحيح. الا انه لا يخرج من اصابع م برمج حريف. والسبب ان‎ 
سيتم تنفيذه مرتين آلما قام المستخدم بتكبيير حجم النافذة. "اج۴ الحدث‎ 
فالأولى بسبب اعادة الرسم والثانية بسبب الاستدعاء الموجود في الحدث‎ 
Rمئأ7ع مباشرة بل خ"أة۲_۴١۳٥۴0 . لذلك تجد ان المبرمج الذآي لا يستدعي الحدث‎ 
عند وقت الحاجة باستخدام الطريقة : ٤أئة8 اةاءأ۷ يترك الامر ل‎ هلعفيلRefresh‎ 
Private Sub Form_Resize() 
Me.Refresh 
End Sub 
تكون نافذة النموذج جاهزة لاستقبال الاحدات "اج۴ بعد الحدتث التلقائي الاخير‎ 
وغيرهاء اما في حالة عدم وجود ءا الخاصة لباقي الادوات او احداتها الاخری آ‎ 
الخاص بنافذة النموذج سيتم كاعء ه60۴ أي اداة قابلة لاستقبال الترآيزء فان الحدث‎ 


تفجیره فورا. 


أعداد المبرمج: مشتاق طالب رشيد العامري ٠٠‏ 
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: لحد ث‎ Deactivate 

ویتم تفجیره بمجرد ان ينتقل الترآيز الى نافذة اخرى ع۷2آ))۸ هو عكس الحدث 
تابعة لبرنامجك فقط . قد ينفذ هذا الحدث ايضا في حالة الاخفاء المؤقت للنافذة 
عsا۴aالى‏ . عاطاVisi‏ او تعديل قيمة الخاصية ع ل1١۳‏ باستخدام الطريقة 
QueryUnloadالحدث‏ : 

عندما تكون النافذة على وشك الازالة النهائية من ٣10۵١‏ ل1اQ16۲۷‏ يتم تنفيذ الحدث 
وليس الاخفاء المؤقت . يمكنك هذا الحدث من الاستعلام عن الطريقة التي-الذاآرة 
. المزيد ايضاء عءل04۷N0هها"لا‏ تسببت في اغلاق النافذة عن طريق المتغير المرسل 
الى المتغير ۲۲۷٥٤‏ تستطيع الغاء فكرة اغلاق النافذة عن طريق اسناد القيمة 

> فالكود التالي لن يمكن المستخدم من اغلاق النافذة باستخدام اع›ء٬ة)‏ المرسل 
" الموجود في اعلى النافذة:×او الزر اغلاق " ×80 ا٣ا ٣)٣‏ صدوق التحكم 
Private Sub Form_QueryUnload)Cancel As Integer, UnloadMode As Integer(‏ 

If UnloadMode =vbFormControlMenu Then 

Cancel =True 
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End If 

End Sub 

موجودة في تعليمات ع0 4M‏ 2١ا١‏ لا طرق الاستعلام الاخرى عن قيم المتغير 
.MSDN‏ 

: ل الحدث‎ nl oad 

هو كدهالا ان لم تقم بالغاء عمل ية اغلاق النافذة في الحدت السابقء فان الحدث 
الحدت التالي» معطيك فرضة اخيرة لالغاء عملية اغلاق النافذة عن طريق نفس 
فهو غير موجود. 4M 0d٤‏ ههال » اما بالنسبة للمتغير اع6٤١ة)‏ المتغير المرسل 
r erminate‏ ا لحدث : 

يتم تفجيیر هذا الحدث بمجرد موت سناد النموذجء م وصوع موت الكائنات هو احد 
Pفقرات‏ الفصل الخامس "البرمجة أسنادية التوجه .' 

Menus‏ لقوائم 

لنوافذ النماذج وقت التصميم عن Uuا€۸×‏ من تصميم قائثمة عأsة6‏ اهuاءأ۷ا‏ يمكنك 

> حدد نافذة النموذج تم اختر الامر Meu ٤ di†٥۲‏ طریق صندوق الحوار محرر النماذج 
. واذا آنت تعاني من آثرة اعادة تكرار تعبئة كا٥‏ من قilئمةEdit0oF...a Menu‏ 

عن طریق [e11‏ ع‌أاھaامem‏ ۲ محتویات القوائم» تستطیع استخدام قوالب القوائب 
Manager‏ ateاrempا‏ ۷B6مدير‏ القوالب . A۸dd-1"‏ الاضافة 

التي تمثل ١٥اامة٤‏ مبدئياء آل وحدة من وحدات القائمة تحتوي على الخاصية 

" لوضع خط تحت الحرف الذي يليه&8النص الظاهر على القائم ة» استخدم الرمز " 
A‏ حتى تمكن المستخدم من الوصول الى الامر في القاثمة بالضغط على المفتاح 
الرمز "-" فقطء فان ١0امة٤‏ والحرق الذي يلي الرمزء واذا أتت قيمة الخاصية 

تمتثل الاسم الب رمجي ٤۳هل‏ القائمة ستكون عبارة عن خط فاصل . اما الخاصية 
للقائمة والذي تنطبق عليه نفس شروط الادوات في التسيمة. فالقائمة ماهي الا 
أداة لكن من نوع خاص» فبامكانك كتابة اآواد تعدل في خصائص القائمة وقت 
التنفيذ: 

"&dlم"‎ = mnuFile.Caption 

mnuEdit.Enabled =False 
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موجودة في القوائم وتؤثر حتی في القوائم ۵٥اط‏ ۵٣ع‏ و عاطایا۷ آما ان الخصائص 
تحدد ما اذا انت تريد وضع علامة اختيار dأع)عع۸‏ الفرعية التابعة له |. والخاصية 
فهي تمكن القائمة من عرض أكءأ ا Wİ ٣ل 0W‏ بجانب عنوان القائثمة . اما الخاصية 

1 جميع النوافذ المحضونة في النافذة من النوع . 

: المنبثقة‎ مئاوقلP٥p-لpم‎ Menus 


أعداد المبرمج:مشتاق طالب رشيد العامري ٠۲‏ 
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اذا نقرت بزر الفأرة الايمن على أي أسناد. فان قائمة صغيرة ستظهر لك . هذه 
عن طريق ٤‏ أكة8 اقuءأ۷‏ . تستطيع تطبيقها في Neu‏ ملا-م٥۴‏ القائمة تسمى 
مع تحديد القائمة التي تود عرضھا: Ne‏ upمدP‏ الامر 

Private Sub Form_MouseDown)Button As Integer, Shift As Integer, _ 

X As Single, Y As Single( 

If Button And vbRightButton Then 

PopupMenu mnuView 

End If 

End Sub 

آما يمكنك عرض قائمة تابعة لنافذة نموذج اخرى: 

PopupMenu frmMain.mnuHelp 


الادوات الداخلية 


فيما يلي عرض ملخص لجميع الادوات الداخلية الموجودة في صندوق الادوات 
امLabوالبداية‏ مع أداة العنوان : ٥0180×‏ ۲ 

امLabأداة‏ العنوان 

حيث تعرض النص 5ا۲0 €0 كsعاس0لك Wi"‏ اداة العنوان من الادوات المعدومة النوافذ 
" قبل احد8التابعة لهاء في حالة كتابة ا " Caption‏ الموجود في الخاصية 
الحروف في هذه الخاصية» فان خط صغير يتم تسطيره تحت ذلك | لحرف يمكن 
المستخدم من نقل الترآيز الى الاداة o:‏ تلي أداة العنوان في الخاصية 

] وذلك الحرفق» تستطيع الغاء الخدمة ا۸|ذا ضغط على المفتاح | >×عTab1”d‏ 
۴aseالى‏ . seMnemonicل‏ السابقة بتحويل قيمة الخاصية 
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" على الأداة وأتت قيمة الخاصيةق#كملاحظة: اذا اردت عرض الرمز " 

> فيشترط كتابة الرمز مرتین. 1۲0€ تسlwوي UseMnem0/iC°C‏ 

تحاذي النص أ١ع٣١‏ واه تظهر حدود حول الاداة. والخاصية عارأ۲Sعلام8‏ الخاصية 

> من اليمين الى ۷آiائJu‏ 0-1۴ الموجود في الاداة اما من اليسار الى اليمين 
فهي dW/2pاWo‏ . اما الخاصية ۲ع†cen-2‏ او في الوسط ۷ااustل 1-Right‏ الیسار 
مفيدة جدا للنصوص الطويلة حيث تقوم بازاحة النص الى سطر جديد آلما وصل 
تحدد ما اذا آنت تريد جعل أداة العنوان شفافة عار†5) ة8 خدود الأداة . الخاصية 
بحيث تظهر الادوات التي خلفها او لا. 

بالاضافة الى عرض النصوص. يوجد استخدام جميل لاداة العنوان اطبقه بك ثرة في 
برامجي» حيث اضع مجموعة ادوات العنوان على النافذة التي تحتوي على صورة 
لكل أداة» ولحبك الحيلة أقوم بوضع ا٤‏ لازرار واقوم بكتابة بعض الاآواد في الحدث 
لكل أداة مما يوحي للمستخدم ان الازرار الموجودة على الصورة ط١١۲00‏ تلميح 
e×8 0×‏ ۲ أداة النص 

بشکل sس0ل"‏ ۷1 من اآثر الادوات استخداما في تطبيقات ×80 ٠٠×‏ أداة النص 
عام فهي الوسيلة المتلى للتفاعل مع المستخدم والحصول على قيم المدخلات 
منه. بعد ان تضيف أداة نص جديدة على النافذة» امسح النص الابتدائي لها عن 

. واذا اردت منع المستخدم من تغيير محتويات أداة النص» ٠٠×‏ طريق الخاصية 
تحدد t1وnعا>Max‏ تفي بالغرض . آما ان الخاصية |٠٤)٥١‏ للخاصية ع٥۲۷٠‏ فالقيمة 
العدد الاقصى من الحروف التي يمكن ان يكتبها المستخدم . تستطيع تحديد حرق 
معين آالنجمة "*" لتظهر بمقدار عدد الحروق المكتوبة عن طريق الخاصية 

> ومن الواضح ان الغرض الرئيس لها لكلمات السwر. PasswordChar‏ 

. فان المستخدم لن يتمكن ۸2۲ ٣۷0۲0ءءهP‏ ملاحظة: اذا استخدمت الخاصية 

من القائمة ۷م٥٣‏ من سرقة النص المكتوب على الأداة باختيار الامر 

المنسدلة بعد النقر بزر الفأرة الايمن على أداة النص» لأن ذاآرة 


أعداد المبرمج:مشتاق طالب رشيد العامرى٣"٠‏ 
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لا تنسى الغاء اوامر النس خ والقص من القائمة ٤أكة8‏ اهuو۷‏ 
السابقة. اما لو انشأت قوائم بها اوامر نسخ ولصق. فذاآرتك هي 
المسؤولة عن الغاء او عدم تمكين هذه الوظائف. 
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لتمكن المستخدم من تحرير النص على عدة سطورء ۴٥٣ا‏ الاM‏ استخدم الخاصية 
فهي تتحكم بظهور او اخفاء اشرطة التمرير. 5٥0۲183۲5‏ ولا تنسى الخاصية 
وقيمة الخاصية ع٥۲۲1‏ هي ٣٥١‏ |اا†اuںM‏ ملاحظة: اذا أتت قيمة الخاصية 
. فان النص الذي يكتبa ScorlIBars aھ 0-None gl 2-Vertical‏ 
المستخدم سيتم ازاحته الى سطر جديد بمجرد الوصول الى حدود 
لاداة العنوان. ۷0۲۵۷۲3۲ آالخاصية-الاداة 
التابعة لاداة النص هي خصائص کءع')ممہا٣P‏ ممصا Run”‏ من خصائص وقت التنفيذ 
وطول 5۲ع تمكنك من تحديد نص معين» حيث تضع نقطة البداية في الخاصية 
. الكود التالي يقوم بتحديد النص بمجرد انتقال وع اام التحديد في الخاصية 
الترآيز الى أداة النص: 
Private Sub Text1_GotFocus()‏ 
Text1.SelStart =0‏ 
Text1.SelLength =Len)Text1. Text(‏ 
End Sub‏ 
. اما الخاصية ٥×‏ ع5 واذا اردت معرفة او استبدال النص المحدد فاستخدم الخاصية 


فهي تمثل آامل النص الموجود في الاداة سواء أن محددا او لاء فلو اردت ۲٥×‏ 
اضافة نص الى الاداة دون حذق النص الموجود بها فاأكتب شیئا مثل: 
ext1.Se ext‏ = "نص اضافي"” 

من الضروري التنويه هنا بان المستخدم لن يستطيع استخدام مفتاح الجدولة 
88 ] ] اتناء الكتابة فقي خانة النصء والسبب في ذلك متطقي. فالمفتاح |[ |1۸8 
يؤدي الى انتقال الترآيز الى الادوات الاخرى» تستطيع اللتفافق حول هذه المشكلة 
لجميع الادوات ومن تم اعادتها: مها5طه١‏ البسيطة بالغاء الخاصية 
Private Sub Text1_GotFocus()‏ 
On Error Resume Next‏ 
Dim ctrl As Control‏ 
For Each ctrl In Controls‏ 
ctrl. TabStop =False‏ 
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Next‏ 
Err.Clear‏ 
End Sub‏ 
Private Sub Text1_LostFocus()‏ 
On Error Resume Next‏ 
Dim ctrl As Control‏ 
For Each ctrl In Controls‏ 
ctrl. TabStop =True‏ 
Next‏ 
Err.Clear‏ 
End Sub‏ 
العرب هي عدم ظهور ۶× ,2000 Windows‏ من المشاآل التي تواجه مستخدمي 
احیانا- عند نسخها من أداة النص والصاقها الى-الحروف العربية بالشكل ا 
برنامج آخرء والسبب في ذلك يتعلق بتوزيع صفحات المحارف التابعة لترميز 
> لا ارید ۸5٤11‏ ما زال مبني علی جدول C‏ |825 اھںءا۷ لان ترمیز ادوات UN N1٤٥C05۴‏ 
ان افصل في الموضوع اآثر من ذلك حتى لا نخرج عن مجال الفقرة» ولكنك 
تستطيع حل هذه المشكلة بتغيي ر اللغة الى اللغة العربية بالضغط على الازرار 
] ] او عمل ذلك برمجيا قبل عملية النسخ او القص:511۴۲+†|A‏ 


أعداد المبرمج: مشتاق طالب رشيد العامري ٠٤‏ 
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Declare Function LoadKeyboardLayout Lib "user32 "Alias _ 

"LoadKeyboardLayoutA) "ByVal pwszKLID As String, ByVal _ 

flags As Long (As Long 

Sub BeforeCopyOrCut() 

LoadKeyboardLayout "00000401", 1 

End Sub 

السيطرة على المدخلات: 

المشكلة التي اود ان اوضحها هو اننا حين نبرمج نتوقع ادخالات معينة من 

المستخدم. فمثلاء وضعت أداة نص لتجعل المستخدم يكتب عمره فبكل تأكيد 

ستتوقع ان يكون العمر قيمة عدديةء لكن ماذا لو ادخل المستخدم حروفا؟ فا نه من 

المؤآد أن منطق شير وسلوك تنفيذ البرنامج سار في افضل الاحوال هذا اذا لم 
. لذلك ستضطر لكتابة اآواد اضافية لتضمن ان ٤۲۲۵۲‏ ٥٣آ‏ ١ا۸‏ تظهر رسالة الخطأً 
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أداة النص لا تختوي الا على اعداد» ولعل الحدث المناسب لكتابة آود التحقق هو 

: ûدحKeyPress‎ 

Private Sub Text1_KeyPress )KeyAscii As Integer( 

If KeyAscii < 48 Or KeyAscii > 57 Then 

'المفتاح المدخل ليس عدد 

KeyAscii =0 

End If 

End Sub 

مهلا مهلا اخي الكريمء عالم البرمجة لعبة عقلية ومنطقية» والامور فيه لا تتم 

بالسهولة التي تتو قعها! لانه ما زالت هنالك امكانية ان يدخل المستخدم حروق 

قي أداة النص وهي باختصار : عن طريق لصق قيم حرفية من الحافظة أي بالضغط 
. فورا ستكون اجابتك الذآية جدا هي ان نکتب اآواد ۷+ ۲۱) على المفتاحين 

نمنع فيه المستخدم من اجراء عملية اللصق . صح K۷(0۷١‏ اضافية فقي حدث 

لسانك! لكنك نسيت طريقة اخرى للصق وهي عن طريق القائمة المختصرة التي 

الى أداة النص والتي تظهر عن طريق زر الفأرة الاي والتي ٤أكئة6‏ امuء۷i‏ يضيفها 

من خلالها يستطيع المستخدم ان يلصق النصوص 

TESS a A OTT 

الشخصيةء ارى ان افضل مكان -اقصد حدت- للتحقق من نوع قيمة النص المدخل 

> لكن المشكلة فيه انه يتطلب تصريح متغير ين عامين للعودة ٤۸379٥‏ هو الحدث 

بالقيمة القديمة لأداة النص اذا أتت القيمة الجديدة ليست عددية: 

Dim OldText As String 

Dim OldSelStart As Long 

Private Sub Text1_GotFocus() 

'عندما يكون الترآيز على الاداة 

'لابد من حفظ قيمتها 

OldText =Text1.Text 

OldSelStart =Text1.SelStart 

End Sub 

Private Sub Text1_Change() 

If Not IsNumeric)Text1. Text (Then 

المدخل ليس رقم 


قم باعادة عرض القيمة القديمة 

ext = dr ext‏ ا.ex»t1"‏ 'توجد مشكلة خطيرة هنا 
Text1.SelStart =OldSelStart‏ 

Else 

'القيمة المدخلة رقمية اذا 


أعداد المبرمج: مشتاق طالب رشيد العامري ٠٠‏ 
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اقم بحفظها 

OldText =Text1. Text 

OldSelStart = Text1.SelStart 

End If 

End Sub 

آما تلاحظء في الکكود السابق لك مني ضمان ان المستخدم لن يستطيع ادخال الا 
الارقام لكن في احد السطور اكتبت التعليق "توجد مشكلة خطيرة هن |" والسبب انه 
بتنفيذ |835 اھلاءأ۷ » سيقوم ٥× =0141 ٤×‏ .۲×1 عندما يتم تنفيذ السطر 
من جديد ! آي ان هذا الاجراء سيتم تنفيذه آما يعرف في ع۸2/9)٤_۲۴×1‏ الاجراء 
وهو احد اساليب الخوارزميات التراجعية ۷ا۷أك۲ل۷اC‏ ۸6 عالم البرمجة تراجعي 

. وحتی تتفادی هذه المشكلة استخدم متغیر ستاتیکي يیمنع حدوث ٩۲5|0ا°€R‏ 
ذلك: 

Private Sub Text1_Change() 

متغير يمنع استدعاء الاجراء تراجعيا 

Static DExitNow As Boolean 

If bExitNow Then Exit Sub 

If Not IsNumeric)Text1. Text (Then 

المفتاح المدخل ليس رقم 

قم باعادة عرض القيمة القديمة 

bExitNow = True 

ext1.r ext = dex‏ 'ذهبت المشكلة الخطيرة التي أتت هنا 

bExitNow =False 

Text1.SelStart =OldSelStart 

Else 

'القيمة المدخلة رقمية اذا 

اقم بحفظها 

OldText =Text1. Text 

OldSelStart = Text1.SelStart 
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End If 

End Sub 

الخاص tعاa‏ مازالت توجد مشكلة اخرى وخطيرة ايض |! وهي تتعلق بموقع المؤشر 
بأداة النص . فالكود السابق لا يق وم بحفظ موقع المؤشر الا في حالة تغيير الق يمة 
لأداة النص مما يتسبب في مشاآل لا نهاية لها عندما يقوم المستخدم بتغيير 
مكان المؤشر دون تغيير القيمة آتحريكه بلاسهم في لوحة المفاتيح او بزر الفأرة . 
والحل عن طريق حفظ قيمة موقع المؤشر في حالة حدوث ذلك: 

Private Sub Text1_KeyUp )KeyCode As Integer, Shift As Integer( 

OldSelStart = Text1.SelStart 

End Sub 

Private Sub Text1_MouseUp )Button As Integer, Shift As Integer, _ 

X As Single, Y As Single( 

OldSelStart = Text1.SelStart 

End Sub 

Private Sub Text1_KeyDown )KeyCode As Integer, Shift As Integer( 
OldSelStart = Text1.SelStart 

End Sub 

Private Sub Text1_Click() 

OldSelStart =Text1.SelStart 


End Sub 
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بكل تأكيد لو لم يكن هناك حل آخر لما آنت قد عر ضت المشكلة من البداية. لان 
الحل يتم باختبار القيمة بعد ان ينتهي المستخدم من ادخال القيمة وليس في اثناء 
Basic‏ اVisua‏ الذي ظهر آحل لمبرمجي ةه ا۷ ذلك. ويتم ذلك عن طريق الحدث 
يعمل عاة لات۷ لمواجهة مثل هذه المشاآل بالتحديد مع اصداره السادس . حدث 
. لمعرفة آيف يتم ذلك. راقب هذا ۸٥ااةلiاة۷ءعوuهC‏ بالتكامل مع الخاصية 
Basi‏ اVisu‏ » يقوم× الى الاداة ۲٠×٤1‏ السيناريو: عندما ينتقل الترآيز من أدا النص 
عuاا.‏ واذا أتت قيمتها »× التابعة للاداة ١0†ةلiاة۷ءعءuهC‏ باختبار قيمة الخاصية 
60 
معطيا المبرمج ٣٠×1‏ التابع لأدا النص عأةل اج۷ بتنفيذ الحدث ٤أكئة8‏ اقuءا۷‏ يقوم 
فرصة لاختبار نوع القيمة. فتستطيع اختصار هذه المقالة بهذا الكود: 
Private Sub Text1_Validate)Cancel As Boolean(‏ 
If Not IsNumeric)Text1. Text (Then‏ 
'المفتاح المدخل ليس رقم 
Cancel =True‏ 
End If‏ 
End Sub‏ 
حتى نلغي عملية الادخال ٠٣١٠٥‏ الى اع١3٤‏ فتلاحظ | ننا قمنا بتغيير قيمة المتغير 
. وقد يسأل سائل ويقول لماذا لا 16×٤1‏ من المستخدم ونعود بالترآيز الى أدا النص 
Lost ۴0 cus‏ ؟ والجواب هو ان الحدت عاھidaا۷a‏ بدلا من cus‏ ۴أsما‏ نستخدم الحدث 
غير مرن ! أي انك تحتاج الى اآواد اضافية لتع ديل الخيارات (فلا يوجد به المتغير 
سيقوم دائثما باختبار القيمة رغم انك لا تود كusاعءه۴اءم‏ ا ) المزيد ايضاء الحدث ا٥مء”Ca‏ 
اختبار القيمة دائم اء مثلا عندما يقوم المستخدم بالضغط على الزر الغاء الامر 
الخاص بصندوق الحوار الذي صممته. اnce ٥a‏ 
Button‏ mandص0m‏ € زر الاوامر 
. لا يوجد andBu††0صmصm‏ بعد اداتي العنوان والنص تبدأً باستخدام زر الاوامر 
> الاولى تضع حد اضافي اعء١ة)‏ و االاة ع0 الكتير لاخبرك به عنها الا الخاصيتان 
حول الزر تمكن المستخدم من تنفيذ زر الاوامر بمجرد الضغط على المفتاح 
Picture‏ ]. وبالنسبة لخصائص الصور » ]E5€‏ ] والتانية مرافقة للمفتاح ]| ENTER‏ 
فلن تتمكن من رؤية نتائجها حتی تفغير قıيمة DownPicUre€‏ و DisablePicture‏ 
. اaphicaاG-1‏ الى عارSt‏ الخاصية 
" دائما آما تتأثر أداف#فهي تتأثر بالرمز " ١10مة)‏ ملاحظة: بالنسبة للخاصية 
seMnemonicل‏ بهذا الرمز عندما تكون قيمة خاصيتها اع5ه ]| العنوان 
€ تساوي . 
0X‏ Chec)B|داۃ‏ الاختیار 
تعطي هذه الاداة فرصة للمستخدم لتحديد اختيار معين اما بتفعيله او لاء قيمة 
او 1-checked .0-vnChecked‏ والتي تكون اما عاا۷a‏ التفعيل تحتجز في الخاصية 
61 
> بالنسبة للقيمة الاخيرة. فيعتقد معظم المبرمجين انها تشبه القيم ة أ2-6۲2۷€ 
للخاصية عكاة۴ % لان القيمة 100 . وهذا الاعتقاد خاطیئ ۴۸21٤۵‏ للخاصية عsا۴a‏ 
تمكنه من ۷8۵ه2-6۲ تمنع المستخدم من التعامل مع الاداة. بينما القيمة 4٩عاbھ٣٤‏ 
ذلك تستطيع استخدام هذه الخاصية في حالات ما بين تحديد الاختيار او لاء 
آتحديد مجموعة اختيارات فرعية آلها او بعضها او عدم تحديدها» في املف 
تجحد مثالا تطبيقيا على هذه القيمة. S.⁄1۴ئعdله)‏ 
يتم تفجيره عند قيامك بتعديل )٤ا٤‏ من الضروري ان تضع في ذهنك بان الحدث 
حتى لو لم يقم المستخدم بالنقر على الاداة . وبالنسبة عuاة۷‏ قيمة الخاصية 
فلن تتمكن من رؤıة DownPicUre‏ و .Picture‏ ePictureاDisab‏ لخصائص الصور 
. اaphiaا1-6‏ الى عارSt‏ نتائجها حتى تغير قيمة الخاصية 
" تماما آما تتأثر أداة&فهي تتأثر بالرمز " ١10م‏ ة٤‏ ملاحظة: بالنسبة للخاصية 
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بهذا الرمز. 07ا andButصComm‏ زر الاوامر 


Button‏ 0ptionزر‏ الاختیار 

وهو شبیه بأداة 0۸ا8 R۸۵0‏ یسمی احیانا بزر الرادیو 0۸80۸ ام0 زر الاختیار 

. اذلك لن عءاة۴ او عمu٣١‏ تكون اما عمuا۷a‏ . الا ان قيمة الخاصية ×0 ۸8٤٥۸ح‏ الاختيار 

لاآثر من زر اختيار واحد في نفس عد۲۲ الى ٥۷ا۷‏ تستطيع جعل قيمة الخاصية 

المجموعة -أي نفس الاداة او نافذة النموذج الحاضنةء لذلك يفضل وضع هذه الازرار 

وترتیبها على مجموعات تناسب تصنیف الاختیارات . ۴۲۵۳۴ في داخل اداة الاطار 

فلن تتمكن من ع۲ uأnP¡c Dow‏ و .Picture‏ ePictureاDisab‏ وبالنسبة لخصائص الصور 
. اraphica‏ 1-6 الى eاSty‏ رؤية نتائجها حتی تغير قيمة الخاصية 

" تماما آما تتأثر أداقكفهي تتأثر ب الرمز " ١10م‏ ة٤‏ ملاحظة: بالنسبة للخاصية 

بهذا الرمز. c0 mmandBu t07‏ ;زر الاوامر 

×0 8ء1 أداة القائمة 

تعرض لك هذه الاداة مجموؤعة من النصوص في داخل صندوق يحتوي على اشرطة 

تقوم بفرز محتويات الاداة فرز تصاعدي بالاستناد كعأ۲ه؟ . الخاصية 5٤0۲١۱82۲5‏ تمرير 

للاسف- اسفل-على حروفها الابجدية» مع العلم ان الحروفق العربية ستكون 

الحروق الانجليزية . تستطيع عرض آل محتويات الاداة على شكل اعمدة وتلفغى 

شريط التمرير العمودي لتظهر شريط التمرير الافقي» سيكون عدد الاعمدة هو 
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رغم اني لا احبذ هذه الطريقة لعرض ٤01۷٠۳١/١‏ نفس العدد الموجود في الخاصية 
محتويات الاداة. 

لن يكون دقيقا آما هو الحال مع الادوات الاخرىء ۸واع!اتغيير ارتفاع الاداة 

يحاول تعديل ارتفاع الاداة حتى تعرض السطر آاملا في ءأكة8 اقuءأ۷ا‏ والسبب ان 
القائمة» فلن تستطيع عرض نصف السطر الا اذا قمت بالغاء المحاذاة التي يفعلها 
seا۴aتساوي‏ . Heightاraوعnt]‏ عن طريق جعل قيمة الخاصية Visual Basiİ°٥‏ 

او وقت اكأا تستطيع تعبئة محتويات الاداة في وقت التصميم عن طريق الخاصية 
AddItem‏ التنفیذ باستخدام الطريق : 

List1.AddItem‏ "الاول” 

List1. AddItem‏ "التاني” 

List1. AddItem‏ "الثالت” 

اذا آنت ستضیف مئات او الاقف العناصر وقت التنفيذء فينصح باخفاء الاداة مۇقتا وبعد 
اضافة العناصر تعيد اظهارهامن جديد» وذلك لأن الاداة تعيد رسم نفس ها تلقائيا مع 
اضافة أي عنصر إليهاء مما يتسبب في بطء التنفيذ وآذلك ارتعاش الاداة: 

List1.Visible =False 

For X =0 To 10000 

List1.AddItem X 

Next 

1 List1.Visible =True 

Sort‏ العناصر الجديدة تضاف الى نهاية سلسلة العناصر -اذا اتت قيمة الخاصية 
- مالم تحدد موقعها بنفسك: ۴۵€ تساوي 

List1. AddItem‏ "الثالت” 

0 ,“JglJl" List1.AddItem 

1 "الثاني”,‎ اist1.‎ AddItem 

تذآر ان تحديد موقع العنصر يؤثر في ترتيب العناصر الاخ رى. بامكانك حذق العنصر 
لحذف جميع العناصر: ١2ا‏ او الطريقة ۳٤1ء۸۳0۷‏ باستخدام الطريقة 

List1.Removeltem 0 

List1.Clear 
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ان لم 1تعود بقيمة العنصر المحدد في الاداة. وتعود بالقيمة - ×عل"]اءأا الخاصية 
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»ا يکن هناك أي عنصر محدد. بامكانك تعديل قيمة الخاصية ايضاء ام | الخاصية 
فهي تعود بنص العنصر المحدد: 

List1.ListIndex =0 

Print List1. Text 

فهي تعود بعدد جميع العناصر الموجودةء والتي أ 0۷u‏ 1ءأا بالنسبة للخاصية 
التي تمكنك من الوصول الى العنصر: أكأا تستخدم بكثرة مع الخاصية 
For X =0 To List1.ListCount‏ 

Print List1.List )0( 

Next 

فهي تمكن المستخدم من تحديد عدة عناصر )ع اع5آ)البالنسبة للخاصية 
باستخدام-او عدة عناصر غير متتالية عام" 1-51 متتالية ڦي الاداة اذا اتت قيمتها 
> وتستطيع معرفة العنصر المحدد عن 4٩عل۸عا×٤-2‏ ]- اذا اتت قيمتها ااt٣المفتاح‏ |[ 
> ۵ ذا الكود ينقل جخميع العناصر المحددة من اداة القائمة كعاءءاعم5 طريق الخاصية 
الى اخری: 

Private Sub cmdMoveLeft_Click() 

Dim iCounter As Integer 

iCounter =0 

Do While iCounter < =lIstRight.ListCount -1 

If IstRight.Selected )iCounter = (True Then 

IstLeft.AddItem IstRight. List)iCounter( 

IstRight. RemoveItem iCounter 

iCounter =iCounter -1 

End If 

iCounter =iCounter +1 


ChneckBoxes‏ ايضا لمعرفة ادوات الاختيار dعاءع‌امS‏ تستخدم نفس الخاصية 

تساوي عاك المحددة بجانب اسماء العناصر والتي تظهر اذا أتت قيمة الخاصية 
.1-CheckBox‏ 

يتم تفجيره بمجرد قيام المستخدم باستخدام اشرطة التمرير اا۲۵٥5‏ اخيراء الحدث 
التابعة Jلإlدlةö. ScrollBars‏ 

0mb08 0X‏ دة القائمة 

السابقة موجودة في الاداة ×80اءأا معظم الخصائص والطرق التابعة للاداة 

قياسية وتحتوي ×80اءا عبارة عن أداة >ە08ط ص0 « وذلك لان |لۈڍöl ComboBox‏ 
اضافية في اعلاهاء» تستطيع عرض خانة النص بعدة طرق ]٠×60×‏ على خانة نص 
0-Dropdown‏ تساوي عا۷اS‏ . اذا اتت قيمة الخاصية عءارا؟ باستخدام الخاصية 

فان اداة النص ستظهر مع س هم يؤدي النقر عليه الى ظهور الجزء الثاني 0ا0۳ 
ماSimp-1‏ . واذا أتت قيمة الخاصية تساوي ×180ءأا الشبيه بالاداة-من الاداة 
2فكلا الجزئين سيظهران للمستخدم اما اذا أتت قيمة الخاصية تساوي - 0طصه٤‏ 
فهي متثل القيمة الاولى باستناء ان المستخدم لن يتمكن Dropdown Lis j‏ 
الكتابة فقي خانة النص. 

| اما الحديث عن الاحدات فهي تحتوي معظم الاحدات القياسية والحدث 

ان صح التعبير --او عأكaة86‏ امuءVi‏ . الا ان فريق التطوير ل ×80ءآا الموجود في الاداة 
MouseDownقد‏ نسي اضافة الاحداث » ×>080ط 0٠‏ المطور الذي قام ببرمجة الاداة 
! اذا صادفته یوما من الايام فارجو ان تنصحه بتناوJ‏ lفط¦طاڙo MouseUp‏ و MouseMove‏ 
Microsotقبل‏ الذهاب الى مکتبه في . 

Picture BOX‏ ادا الصورۃة 

بدون شریط ۴٥۲۳‏ على انها نافذة نموذج ×۲۴80ںاءأ۴ يمكنك اعتبار اداة الصورة 
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عنوان. فمعظم خصائص. طرق واحداث نافذة النموذج موجودة في الاداة 

لذلك لا يوجد داعي لاعادة ذآرها في هذه الفقرة باستتثناء الخاصية ×80ع”u۲اعPi‏ 
التي تعدل حجم الاداة بحيث تعرض جميع محتويات الصورة الموجودة في ع5izہt Au‏ 
اداة ×80عPictur‏ . آما ان الاداة ۲اا الاداة -أي الصورة الموجودة في الخاصية 
حاضنة یمکنها ان تحتضن ادوات اخری في داخلما. 

mage‏ ]1أداة الصورة 

> فهي ×80ع۲لااعا٣‏ هي نسخة مبسطة من الاداة السابقة ع۳29[ اداة الصورة 

الا انها لا تدعم الخصائص المتقدمة للصور ٤۷۲ء٤۴‏ تعرض الصور عن طريق خاصيتها 


.. الخ آما انها لا تدعم طÙطرة‏ llرwم‏ <« Î DrawMode .AutoRedraw .HasDC‏ 

.. الخ اذا آنت لا تنوي استخدامها فقد ”ا۴ء Riz‏ .... الخ والاحداث صCirlc‏ 
Windowless‏ هي اذاة من النوع معدومة النوافذ E ]1"29٥‏ الكتير! لان الاداة 
> آما ان استملاآها لمصادر ×80عrںا‌ا۴‏ أي انها اسرع بکثیر من الاداة اContro‏ 
. فاذا أن استخدامك ×80ع۲ اا۴ اقل بکثیر من الاداة sعc system Rou‏ النظام 
عوضا عن الاداة 1۳٣29٥‏ لادوات الصورة قاصرا على عرض الصور فقطء استخدم الاداة 
.PictureBox‏ 
عكاشرطة التمریر 
من محاآاة اشرطة التمرير المنتشرة في 2 ۷5٤C0۲1|8‏ و 0۲82۲ء5 تمكنك الاداتين 
لتحديد مجال القيم التي ×“ و Mi‏ . ابداً بالخاصیتيین ۷1۱00۷5 نوافذ وتطبیقات 
. والتي تمثل الموقع الحالي عuاة۷‏ يمكنك قرائتها او آتابتها عن طريق الخاصية 
للمستطيل المتحرك في شريط التمرير . بعد ذلك حدد قيمة التفيير البسيط عن 
وهي مقدار التغيير في القيمة عندما يقوم 53||C۸3۸9٥‏ طريق الخاصية 
فهي ع۸3۸9٣ع‏ وها المستخدم بالنقر ع لى اأحد ازرار اشرطة التمريرء اما الخاصية 
مقدار التغيير في القيمة عندما يقوم المستخدم بالنقر على شريط التمرير نفسه. 
توجد خاصية تعرض اشرطة الادوات على نوافذ النماذج مباشرة. اما أأما06 في لفة 
فللاسف لا توجد. اذا آنت تريد وضع اشر طة ادوات عليهاء فانت ٤أئة8‏ اھuئا۷‏ مع 
المسؤول الاول والاخير عن ظهورهاء اخفائها وتحريك الادوات. وبالنسبة لتحريك 
حتى تسهل عملية التحريك ×۲۴80ںاءا۴ الادوات فيفضل احتضان الادوات في اداة 
عالیاف: 
Private Sub Form_Resize()‏ 
If Me.ScaleHeight < picMain.Height Then‏ 
VScroll1.Move 0, 0, VScroll1.Width, Me.ScaleHeight -HScroll1.Height‏ 
picMain.Left =VScroll1.Width‏ 
VScroll1.Min =0‏ 
VsScroll1.Max )- =picMain.Height -Me.ScaleHeight(‏ 
VsScroll1.SmallChange =50‏ 
VsScroll1.LargeChange =500‏ 
Else‏ 
picMain.Left =0‏ 
VScroll1.Move Me.ScaleWidth +VScroll1.Width‏ 


If Me.ScaleWidth < picMain.Width Then 

HScroll1.Move VScroll1.Width, Me.ScaleHeight -HScroll1.Height, _ 
Me.ScaleWidth -VScroll1.Width 

HScroll1.Min =0 

HScroll1.Max )- =picMain.Width -Me.ScaleWidth( 
HScroll1.SmallChange =50 

HScroll1.LargeChange =500 
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Else 

HScroll1.Move 0, Me.ScaleHeight +HScroll1.Height 

End If 

End Sub 

ادوات الملفات 

غرضlq File ListBox‏ و DirListB ox .DriverListBox‏ من الواضح ان ادوات الملفات 
الاساسي هو عرض ملفات الجهاز. يعيبها انها ادوات قديمة جداء وشكلها الخارحي 
> ورغم انني لا احبذ Sك00۷, W1‏ لا يلاثم ادوات عرض الملفات الشائعة لبيئة 

على الاقل - تعتبر م ن الادوات الداخلية»-استخدامهاء الا انني ملزم بشرحها فهي 
وآما يقولون: "يمكنها تفك ازمة!". 

×80اisا Driver‏ في اغلب النوافذ. تعمل هذه الادوات جنبا الى جنب فتبدأً بالاداة 
ماعن طريق الخاصية : ٥0۲1۷ء0‏ وتحدد حرق محرك الاقراص الابتدائي 
Private Sub Form_Load()‏ 

Drive1.Drive " =C:\" 

End Sub 

حتى تغير مسار الادلة الموجودة في الاداة C۸379٥‏ تم تنتقل الى الحدث 

في آل مرة يقوم بها المستخدم بتغيير المحرك في الاداة DirList80×‏ 
:DriveListBOX‏ 

Private Sub Drive1_Change() 

Dir1.Path =Drive1.Drive 


من المهم جدا توقع الخطاً في الكود السابق. فلو قام المستخدم باختيار محرك 
کا الخطأً E‏ في وجه اقراص لا يوجد به قرص -آالمحرك 
Private Sub e‏ 
On Error Resume Next‏ 
Dir1.Path =Drive1.Drive‏ 
If Err Then‏ 
Drive1.Drive =Dir1.Path‏ 
Err.Clear‏ 
End If‏ 
End Sub‏ 
بمجرد تغيير مسار الاداة ×80اءآاع|اأ۴ والخطوة الاخيرة تغيير محتويات الاداة 
ونكون بذلك قد ربطنا الادوات l|لiتلlاٽ: DirListBoXx‏ 
Private Sub Dir1_Change()‏ 
File1.Path =Dir1.Path‏ 
End Sub‏ 
التابعة للاداة ح٥‏ ملاحظة: يمكنك كتابة المسار مباشرة للخاصية 
DirListBox : öةllJl JlzÎ lpJl>FileListBox‏ 
Dir1.Path " =C:\Windows"‏ 
File1.Path " =C:\Winnt”‏ 
التي ١۲عااج٣‏ فهي تحتوي على خاصية مرنة تدعى ×80ءآاع|أ۴ بالنسبة للاداة 
تمكنك من تصفية الملفات وتحديد نوع معين من الامتدادات التي تظهر على الاداة: 
File1.Pattern =".*EXE”‏ 
File1.Pattern =".*TXT;.*DOC;.*RTF”‏ 
File1.Pattern ="ABC*.*”‏ 
اNorma. Archive‏ المزيد من عمليات التصفية تمكنك منها الخصائص المنطقية » 
واظھار yا e07‏ . فلاخفاء ملفات القراءة فتقط System‏ و N «Hidden‏ 
اأكتب الكود البسيط التالي: ۳١٥١‏ الملفات المخفية 
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File1.ReadOnly =False 

File1.Hidden =True 

فهي تمتل الملف المحدد في الاداة. ١2۳"٠‏ م|اا۴ اما الخاصية 

ComboBox‏ و List 80x‏ ملاحظة: ادوات الملفات الثلاتة شبيهه بأدوات القوائم 

ايضا. List] "٥×‏ و List €0unt List‏ فهي تحتوي على الخصائص 

ادوات اخری 

التي ۴۲۵۳٠‏ من الادوات الاخرى التي أود ان اختم بها هذا الفصل هي أداة الاطار 
تستخدم بكثرة لحضن الادوات وتقسيمها إلى مجموعات. ويمكنك التحكم في 

. واداة رسم عارerStمBord‏ ظهور او اخفاء الحد الخارحي لها عن طريق الخاصية 
التي لا يوجد داعي لذار الشكل الذي ترسمه ولكن ما دعاني لذآره ٣٥‏ أا الخطوط 
etا» 0p‏ افهي ليست .> Y2‏ و 1× 2× ۲1 هو خصائص الموقع والحجم التابعة لها 
> ولكنها احداتيات نقطتي البداية والنهاية للخط الذي تريد رسمة Height‏ و Width‏ 
اشكال مختلفة 6 فتستخدم لرسم شكل من بين 5۸3€ اما اداة رسم الاشكال 
تستطيع تحديدها عن طريق الخاصية التي تحمل نفس اسم الاداة . وأداة المؤقت 
آل فترة ۲1۳6۲ التي تمكنك من تنفيذ الاوامر الموجودة في حدتها الوحيد ۴۲" |1 
ثانية. اما أداة 0.001 ووخدتها اة18۲۷ معينةء تحديد هذه الفترة تضعه في الخاصية 
لوضع مستندات 01۴ فهي تمكنك من اسشتخدام تقنية 0|۴ ربط الكائنات وتضمينها 
مختلفة من تطبيقات مختلفة في نافذة النموذج . التحدث عن تفاصيل الاداة او تقنية 
خارج نطاق هذا الکتاب. ۴ا1٥‏ 

للأداة ٣عم"‏ أ٣‏ ملاحظة: لا تحاول الاآتار من الاآواد الطويلة بداخل الحدث 

من مصادر 9" أكوععه۴۲ فذلك يسبب استهلاك آبير للمعالجة ۴۲"|آ 

مما يؤدي الى ابطاء تنفيذ برامجحك ع٤۲‏ 501عR‏ ۳عاSys‏ النظام 

والبرامج الاخرى في نظام التشغيل. 
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الفصل الثالث 


8A1‏ لغة البرمجة 


Basic‏ ا۷sua‏ شخصية اصيلة معتزة بامجادها وتاريخهاء فما زالت Basİ›‏ اVisua‏ ان 
اوا التي تصنف من لغات البرمجة العليا 8۸451٤٧‏ محتفظة بسمات لغة البرمجة 
Basic‏ اisuaاهي‏ روح لغة البرمجة « level programming languageةãغl . BASIC‏ 
الى جانب مصمم النماذج ءأكة8 اقuءا۷ا‏ وهي اللغة التي زادت من اسهم وشعبية 
التي ظهرت بها اللغة منذ بداية الستينات ×هأ١5۷‏ . فمعظم lلصيغ Form Designer‏ 
. ليس هذا فقط. بل ة8 اقuءأ۷‏ مازالت مدعومة بشكل جيد في احدث اصدارات 
Basi‏ اVisua‏ اضيفت اليها العشرات من الدوال والصيغ البرمجية حتى تلائم قوة 
في امکانياتها. W10۷‏ وتحاآي تطبیقات 
المتغيرات والنوابت 
المتغيرات والثوابت هي اساس أي لغة برمجة . إن استيعاب انواع المتفيرات من 
المسائل الضرورية التي تمكنك من اختيار الانواع المناسبة للمتغيرات سواء 
لارسالها الى الدوال او لإجراء العمليات الحسابية عليه |. بودي التحدث عن مبدثا 
قابلية الرؤية وعمر الحياة قبل الخوض في تفاصيل المتغيرات. 
قابلية الروية وعمر الحياة 
قابلية الرؤية وعمر الحياة من احد المبادئ الضرورية فقي جمي ع لغات البرمجةء و 
يعتبر لغة برمجة حقيقة تدعم هذان المبدثان. عأئة8 امVisu‏ 

- للمتغير تمتل قدرة البرنامج على الوصول عم0pء5‏ او المدى- اأ أءأ۷ا قابلية الرؤية 
الموجود في الكود التالي لا يمكن الوصول اليه × الى المتغير واستخدامهء فالمتغير 
MySub1خارج‏ الاجراء : 
Sub MySubı! ()‏ 
Dim X As Integer‏ 
X =20‏ 
71 
End Sub‏ 
Sub MySub2 ()‏ 
P٣ ×‏ 'السابق × لا يمثل المتغير 
End Sub‏ 
للمتغير» فهِي تمتل الفترة التي يظل فيها المتغير محتفظا ۴١٣٤‏ أا اما عمر الخياة 
الموجود في الكود السابق» سينتهي ويزال تلقائيا من الذ اآرة × بقيمتهء فالمتغير 
Basi‏ اVisua‏ . ولكي تفهم الاسلوب الذي يتبعه 5151 بمجرد الخروج من الاجراء 
لتطبيق مبدأً قابلية الرؤية وعمر المتغيرات» عليك معرفة انواع المتغيرات من منظور 
الرؤية وعمر الحياة: 
المتغيرات المحلية الديناميكية: 
هي متغيرات تولد مع كعاطةااVa‏ اaعما‏ cصynaط‏ المتغيرات المحلية الديناميكية 
السطر الذي تعلن عنها فيه داخل الاجراء وتموت بعد نهاية الاجراء مباشرة ويتم 
تحرير المساحة التي حجزتها هذه المتغيرات في الذاآرة. وبالنسبة لقابلية الرؤية 
فلن تستطيع الوصول الى هذه المتغيرات الى في نفس الاجراء الذي صرح فيه 
لتصريح المتغير مع كتابة اسمه ونوعه: "01۳ المتغير. تستخدم الكلمة المحجوزة 
Dim sName As String‏ 
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Dim iAge As Integer 

موجودة في اعلى منطقة الاعلانات اا‌اام×٤‏ ١٥هام‏ اذا اتت الكلمة المحجوزة 

> فعليك اللالتزام بالتصريح آما في 845 العامة لنافذة النموذج او ملف البرمجة 
مسطورة فيمكنك اآء‌آام×٤‏ ١٥اأم0‏ الصيغة السابقةء وان لم تكن الكلمة المحجوزة 
تعريف المتغير مباشرة دون الالتزام بعملية التصريح باسناد قيمة ابتدائية له: 
ع€sNam‏ = ”ترآي العامري” 

iAge =99 

صحيح ان الكود السابق يوفر عليك عناء تصريح المتغير لا انه غير محبذ بشكل آبير 
لدى المبرمجين الجادينء قد يعرض هذا المتال احد الاسباب: 

s company Name‏ = "الشرآة التجاریة" 

جتliJl‎ Print sConpanyName ` 0 

72 


في الكود السابق لن يكون آما هو متوقع "الشرآة خ١‏ أ۴ الناتج من عملية الطباعة 
وليس ع N2"‏ an۷مc0nء‏ التجارية". فالمتغير المستخدم في السطر الثاني هو 
في برامجك. كوا8 وهذا الخطاً آفيل في نمو الشوائب البرمجية 5٤٥037۷2"‏ 
سبب آخر قد يجعلك تحبذ الالتزام بعملية التصريح وهو ان جميع المتغيرات تكون 

قو ابطاً انواع aran‏ ان لم يتم تصريح نوع غير ذلك. والنوع ۷3۲3۸ من النوع 
المتفيرات آما سيأتي لاحقا. 
إلى الاعلان اiciاExp‏ tionم0‏ في متالنا السابق؛ يؤدي فرض الاعلان عن المتغيرات 
عن خطأً و توقف البرنامج . وقي جميع الحالات فإن الخطاً کا اسم المتفير أو 
اسناد قيمة إلى متغيرات لم يتم الاعلان عنها مسبقاً ب في الإعلان عن 
خطأ» وسيتوقف البرنامج ايضا. 

خيار يلزمك بعملية التصريح أي 10٤‏ ملاحظة: توفر لك بيئة التطوير المتكاملة 
فقي جميع وحدات برامجك اا ام×٤‏ هام0 بكتابة الكلمة المحجوزة 
آنوافذ النماذج. ملفات البرمجة .... الخ. لتفعيل الاختيار» حدد 
Editor‏ من خilة‏ llتبويب‏ ¬ټDeclarati0 Require Variable‏ الاختیار 
onsاtم0pفي‏ صندوق الحوار . 

> والحرفي يكون قيمة حرفية0 اخيراء القيمة الابتدائثية للمتغير العددي المصرح هي 
thin‏ Nخالية‏ "". اما الكائنات فهي لا شی . 
المتغيرات المحلية الستاتيكية: 
هي متثل كءعاطةأا۷a‏ اةعما Sti‏ قابلية الرؤية للمتغيرات المحلية الستاتيكية 
قابلية الرؤية للمتغيرات المح لية الديناميكية أي لن تتمكن من الوصول اليها الا من 
داخل الاجراء المصرح عنها فيهء وبالنسبة لعمر حياة المتغير الاستاتيكي فهو ييبقى 
او حتی يموت 845 محتفظا بقيمته حتى نهاية البرنامج اذا أن في ملف برمجة 
عوضا ء٤‏ اة الكائن التابع له . لتصريح متغير ستاتيكي استخدم الكلمة المح جوزة 
صااعن : 
Static bStaticVariable As Boolean‏ 
تستطيع جعل جميع المتغيرات التابعة للاجراء ستاتيكية بوضع نفس الكلمة 
المحجوزة عند بداية الاجراء: 
73 


Static Sub Counter () 
'جميع المتغيرات التالية ستاتيكية‎ 
Dim iCounter As Integer 

Dim iCounter2 As Integer 


ا End‏ 
لا اول تطتى الكو السابى انرا فالمتات السانكة انطا من الفترانت 


الدسامنكه الى انت قاد مااي مواق هذه المعيراب قى الذاآلة طوال وة 
عمل ارام قلا تال اس تمم اال عد الا اال هقفي ودارا د 
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لمرة واحدة متلا او الاحتفاظ بقيمة المتغير في عداد: 
Sub PrintData ()‏ 

Static bIsPrinting As Boolean 

If bIsPrinting Then 

Exit Sub 

Else 

bIsPrinting =True 

End If 


End Sub 

Sub Counter () 

Static iCounter As Integer 

iCounter =iCounter +1 

End Sub 

لا تطبق الا على المتغيرات المحلية فلا تحاول ءأأها؟ اخيراء الكلمة المحجوزة 
استخدامها على متغيرات عامة او على مستوى الوحدة فهِي بطبيعتها ستاتيكية. 
المتغيرات على مستوی الوحدة: 

اقصد الوحدة البرمجية 

.... الخ ككها€ او فئثة ۴0٥۲۳‏ او نافذة نموذج 8۸5 المتمثل ة في ملف برمجة عاduهM‏ 
من الوحدات المكونة للمشروع . يمكنك تصريح متغير على مستوى الوحدة في 
منطقة الاعلانات العامة للوحدة اي خارج الاجراءات. 

قابلية الرؤية لهذا النوع من المتغيرات يكون عام لجميع اآواد الوحدة في حالة 
Privateاو‏ : Dim‏ استخدام الكلمة المحجوزة 

Dim sName As String 

Dim iAge As Integer 

Sub SetData () 

same‏ = ”ترآي العامري“ 

iAge =99 

End Sub 

Sub PrintData () 

Print sName 

Print iAge 

End Sub 

اما اذا آنت تريد تعريف متغيرات عامة قابلة للوصول من جميع انحاء المشروع »> 
تفي بالغرض: »اا۴ فالكلمة المحجوزة 

65 "في ملف برمجة 

Public iNumberOfUsers As Integer 

۴1 "في نافذة نموذج 

Public sCurrentUser As String 

۴2 "في نافذة النموذج 

Private Sub Form_Load() 

If iNumberOfUsers < =0 Then 

Exit Sub 

Else 

Me.Caption =Form1.sCurrentUser 

End If 

End Sub 

فهي مازالت موجودة لضمان اهطهاى ملاحظة: بالنسبة للكلمة المحجوزة 

> وهي تؤدي نفس ع٤‏ أكة8 اةناءا۷ التوافقية مع الاصدارات القديمة ل 

> ولكنك لن تستطيع استخدامها الا cأاطا۲‏ غرض الكلمة المحجوزة 

فقط. 6845 في ملفات البرمحة 
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اما عمر الحياة لهذا النوع من المتغيرات فيكون مرافق لعمر حياة الكائن التابع له 
آعمر حياة المتغيرات الستاتيكية. وبالنسبة للمتغيرات العامة-والمصرح فيه 
> فستظل محتفظة بقيمتها حتى نهاية تنفيذ 845 المصرحة في ملفات البرمجة 
البرنامج. 
المتغيرات 
نستطيع ان نعرق المتغيرات بمنظورين. بالمنظور بغدادي يعرق المتغير على انه 
وهو الاهم - يعرفق-مجهول س يحتوي على قيمة معينة» اما بالمنظور البرمجي 
المتغير على انه قيمة تحفظ في ذاأرة الجهاز . وتختلف المساحة المحجوزة لحفظ 
لا يستهلك سوى بايت عأل8 هذه القيمة باختلاف نوع المتغيرء فمتغيرمن النوع 
قد يحجز مساحة تصل S١١١9‏ واحد من ذاآرة الحاسب.» في حين أن متغیر من نوع 
جيجابايت. 2 الى 
Basic‏ ا۷Visuaوفيما‏ يلي عرض لجميع انواع المتغيرات المدعومة من قبل : 
عt By‏ المتغیرات من النوع : 
] وهو 255 .0يستطيع هذا النوع الاحتفاظ باي قيمة صحيحة ضمن المجال العددي [ 
قك Byte‏ بايت . بداية المتغيرات من نوع 1 اصغر انواع المتغيرات اذ لا یحتجز سوی 
> اذ ۷84 من الاصدار 16b‏ وأتت معظم استخداماتها في نسخة ۷84 منذ الاصدار 
التي ۸۴1 تستخدم آثيرا عند الاتصال باجراءات عر8 أتت المصفوفة من النوع 
تتعامل مع الحروق. ام | مع الاصدارات الاحدت فلن تتمكن من الاستفادة وتطبيق 
٤0ع UN]‏ . لان الترميز المتبع عر6 الطرق القديمة على المتغيرات من النوع 
. باختصار. لا A5٥11‏ بايت آترميز 1 بايت للحرق الواحد وليس 2 يستهلك مساحة 
عاBy‏ عند استخدامك للمتغيرات من الن وع ك9 S٣١‏ تضع في ذهنك أي قضايا حرفية 
> فيمكن قصر استخدامك لها على ۸۴1 خاصة عند الغوص في اعماق اجراءات 
ع8ytالاعداد‏ الصغيرة او البيانات الثنائية مع المتغيرات من نوع . 
٣tegeہ1المتغیرات‏ من النوع : 
76 
] للمتغفيرات من النوع 32,767 » 32,768اسند أي قيمة عددية صحيحة في المجال [- 
الخاصة ۸٨1‏ بايت. وعند الحديت عن اجراءات 2 فهِي تحجز مساحة ۲عg9عاہ1‏ 
. بعیدا عن N109۴‏ ل هي الانسب للترميز 1,٤96۲‏ بالحروق. فالمصفوفة من النوع 
الحرفية» تفيدك المتغيرات من هذا النوع عند التعامل مع الاعداد ۸۴1 اجراءات 
لقدرتها على احتواء 1|0١9‏ الصحيحة. الا انني احبذ استخدام المتغيرات من النوع 
> آما انها النوع القياسي لاغلب ۲ع9عا"1 قيم اآبر بكثير من المتغيرات من النوع 
. اما في حالة المصفوفات الكبيرة» فانني افضل استخدام المتغيرات ۸۴1 اجراءات 
% من مساحة الذاآرة. 50 لتوفير 9۴۲ع"1 من النوع 
9و |1المتغيرات من النوع : 
تستطيع حمل قيم عددية صحيحة في المجال [- |0١9‏ المتغيرات من نوع 
بايت للمتغفير 4 ] فهي تحجز مساحة قدرها 2,147,483,647 » 2,147,483,648 
الواحد. وآما ذآرت في الفقرة السابقة اني احبذ lT‏ عوضا عن SEN‏ 
> فهي تحمل قيم آبيرة جدا مقللة الخوفق من ظهور خطأً وقت #۲وعا"1 من النوع 
> فلو آاککہت آود يقرأً حجم ملف معين وآنت من المدمنين للنوع 0Verf|0W‏ التنفیذ 
. فستصاب بخيبة امل آبيرة عندما تتعامل مع الملفات التي تزيد احجامھا 1nteger‏ 
e‏ 
Dim iFileSize As Integer‏ „, 
'بايت 32,676 سيظهر خطا اذا زاد حجم الملف عن 
iFileSize =FileLen )"C:\MyFile.DAT™(‏ 
Boolean‏ المتغیرات من النوع : 
ولكن القيم 96۲عأ"ہ1 هي نفس المتغيرات من النوع ١2عا800‏ المتغيرات من النوع 
> حجم المتغيرات من 1 ۴٥١۲١و‏ - 0 عكاة۴ التي تمكنك من اسنادها اليها تكون اما 
بايت» الا انها لا 2 أي #۲وعا"1 مثل حجم المتغيرات من النواع ١2عا800‏ النوع 
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بايت يعتبر 2 بت الاخرى . صحيح ان الحجم 15 بت متجاهلة ال 1 تستخدم سوى 

تسهل عليك عملية قراءة ١2عا800‏ زيادة غير مستخدمة. الا ان المتغيرات من النوع 

وفهم الاآواد. 
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ماوSinالمتغیرات‏ من النوع : 

احتوائها هو الاعداد الموجبة عاو"ا؟S‏ مجال القيم التي يمكن للمتغيرات من النوع 

الى 38ع3.402823او الاعداد السالبة من - 3.402823٥38‏ الى 45-ع1.401298 من 

بايت. 4 وتستهلك مساحة 45-ع1.401298- 

eاDoub‏ على النوع ع‌اوSin‏ النوع Basic‏ اتuء۷i‏ ربما يفضل معظم مبرمجي 

لاعتقادهم ان الأول اسرع في التنفيذ من الثاني» هذا الاعتقاد صحيح في النوع 

›» من المعالجات والتي لا تحتوي على مساعد رياضي‎ ميدقلاMath‎ coprocessor 

اما اغلب المعالجات الجديد تحتوي على المساعد بغدادي وهو خاص بالعمليات 

مما يجعل السرعة متقاربة "اه۴ و١‏ ها۴ الحسابية للاعداد ذات الفاصلة العائمة 

عوضا عن عااuم0‏ ء لذلك ينصح باستخدام النو ع ع‌اubه0‏ و عاوہاS‏ جدا بين النوعین 

ودقة اعلى للاعداد لكبر مجال القیم 0۷8۲۴۱0۷ حتى تتقي شر الخطأً عاو١اك‏ النوع 

اسرع بكثير من عاو١آك؟‏ الممكنة به |. من ناحية اخرى» قد تكون المتغيرات من النوع 

عند التعامل مع الخصائص أو الطرق التي تحتك مع عاbاuاه0‏ المتفيرات من النوع 

Current .Circle Line .ScaleWidth .«ScaleHeight‏ الاحداتیات بشکل مل حوظ آ 

معها ابطاً عااuاه0‏ . واستخدام النوع عاو"1ك .... الخ فهذه الاحداتيات تستخدم النوع 

عاو5inيضطر‏ الى تحويل متغيرات النوع السابق الى . ٤أكئة8‏ اقuء۷‏ لان 

eا0ub‏ من النوع : المتغيرات 

احتوائها هو الاعداد الموخبة عاubه0‏ مجال القيم التي يمكن للمتغيرات من النوع 

او الاعداد السالبة 308ع1.79769313486232 الى 324-ع4.9406564581247 من 

وتستهلك 308ع1.79769313486232الى - 324-ع4.9406564581247من - 

بايت. 8 مساحة 

لذ لك هو عاuام‏ 0 الخاصة بالاعداد تعود بقيمة من النوع ٤ئ82‏ اةuاءأ۷‏ معظم دوال 

النوع المفضل دائماء الا ان عيبه الوحيد هو في المساحة الكبير التي يحتجزهاء وقد 

eا0ub(يظهر‏ هذا العيب جليا في المصفوفات الكبيرة من النوع . 

: المتغیرات من النوع‎ Currency 

۵×آ۴الاحتفاظ بقيم عشرية للفاصلة الثابتة - ٤1۲۲8١٤۷‏ يمكن للمتغيرات من النوع 

> 922,337,203,685,47/7.5808شريط ة ان تکون محصورة في داخل المجال [- اه٥‏ 

بايت ايض |. يوفر هذا النوع من المتغيرات 8 ] وحجمها 922,337,203,685,477.5808 

.. الخ والتي تستخدمها ×أ۴» R0٣0‏ عناء التقريب باستخدام دوال التقريب آ 

LL‏ يبطئ العمليات الحسابيةء مع عاوأ؟ و عماbاuه0‏ بكتثرة مع المتغيرات من النوع 

ابطاً خمس او اربع مرات من €1۲۲۵۸٤۷‏ ذلك الاستخدام المجرد للمتفيرات من النوع 
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فلا تستخدمها بكتثرة في حالة تطبيق آلاف العمليات عاوہا؟S‏ و عاbاںuه‏ المتغيرات 

الحسابية عليها. 

اaصآعه(المتغيرات‏ من النوع : 

آبيرة جداء ولا يوجد اتة"iءع0‏ الاعداد التي يمكنك اسنادها الى المتغير ات من النوع 

على قيد الحياة . لن تستطيع تصريح 150١‏ داعي لذآرها هنا مادامت مكتبة 

> وانما اaصDecim (im × As‏ مباشرة بالطريقة التقليدية اة"٣أءع‏ 0 المتغيرات من النوع 

بايت- ومن تم تسند قيمة له: 16 -الذي يستهلك ۷3112٣‏ تستخدم النوع 

Dim X As Variant 

X =CDec )Text1.Text * (CDec )Text2.Text( 

هي ابطأ انواع المتغيرات آما ستقرأً في ۷3۲13١‏ ولا تنسى ان المتفيرات من النوع 
" قريبا. أ٣أة۷2۲‏ فقرة "المتغيرات من النوع 

: (المتغيرات من النوع‎ at 
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31 الى 100 ين اير 1 هذا النوع من المتغيرات يحمل قيم تاريخية 5 من التاريخ 
ص حتى 00:00:00 ويشمل نفس المتفغير وقت يبدأ من الساعة 9999 ديسمبر 
بايت» وفي حقيقة الامر المتغيرات من 8 م وتستهلك مساحة 23:59:59 الساعة 
> فالجزء العشري يمتثل وقت عءاubام0‏ هي نفس المتغيرات من النوع عأة0 النوع 
تمتل الساعة التانية 37257.5 معين والجزء الصحيح يمثل تاريخ معين» فالقي مة 
. السبب الذي جعلني اذآر تفاصيل المتغيرات 2002 يناير عام 1 عشر ظهرا من يوم 
من هذا النوع هو اعطائك افكار مرنة تمكنك من اجراء عمليات آتيرة على قيم 
التاريخ وهذه قطرات من محيط الامتلة: 

Dim dDateVar As Date 

dDateVar =Now 

اطبع التاريخ فقط 

Print Int)dDateVar( 

'اطبع الوقت فقط 

Print CDate)dDateVar -Int)dDateVar(( 


"اضف اسبوع واحد 
Print dDateVar +7‏ 


Print dDateVar -30 

'ساعات 6 احذقفق 

Print dDateVar -0.75 

وخصوصا العشر ية.-ملاحظة: ان لم تكن دقيق في كتابة الاعداد المناسبة 

فان نتائج العمليات السابقة لن تكون متوقعة» لذلك يتصح باستخدام 

آما سيفصلها ۷8۸ و ۷8 دوالك الوقت والتاريخ المضمنة في مكتبات 

لك الفصل القادم. 

9 كالمتغيرات من النوع : 

١ !‏ اذا String‏ ا ا ت بسبب المتغيرات الحرفية من نوع BASI‏ لماذا لغة ال 

سواء أن دینامیکيا او سا ایکا باس تخدام القصة وذ او التحقق من گول الس 

سطور لاسناد قيمة الى متغير حرفي» ف 6 او 3 وغيرها من الامور التي تتطلب 

14 هو المتكفل بهذه الامور تلقائيا بمجرد تصريح متغير من النوع 5ئ82 ام۷isu‏ 

او اسناد قيم حرفية له. 

تعتمد S۲٣9١‏ بت - اصبحت المتغيرات الحرفية 32 نسخة عيار- ۷/84 منذ الچ ار 
. بصفة عامة» یوجحد نوعان من انواع المتغیرات ۸5٤11‏ ولیس 100۴ل ترمیز 

engthا-۴Xed‏ لك هما المتغيرات تابتة الطول ءأكة8 اهuءأ۷‏ الحرفية يوفرھشا 

Length-eاariab/والمتغيرة‏ الطول . 

المتغيرات تابتة الطول هي متغيرات حرفية عدد حروفها محدد في اتناء تصريحها ولا 

یمکن ان يتغير: 

Dim FixedStr As String *12 

s۴>edt‏ = "تراي العامري” 

مما يحمله هو SS‏ فالعدد ل من الحروق 0 يمکن للمتغير 

رایت ر الواحد . من عيوب المتغيرات ثابتة الطول هو عدم ا مع تقينة 

لا تدعم هذا النوع من 1 الداخلية واجراءات ۷8۸ و ۷8 ومعظم دوال مکتبات ٤)05‏ 

المتغيرات» وحتى لو أن عدد حروف القيمة المسندة اقل من عدد الحروفق 

المصرحة. فان المسافات " " ستحل محل الخانات الفارغةء ولا يمكن لهذا النوع من 

» آما لا يمكنه اط۴ المتغيرات ان تكون مرئية على مستوى الوحدة من النوع 

آيلوبايت. الا ان الميزة التي تظهر بها عند اسناد 64 حمل عدد من الحروق اآبر من 
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القيم الحرفية لهذا المتغيرات فنتائجها تكون دائما اسرع من المتغيرات من النوع 
لا يقوم باي عمليات احتجاز في الذاآرة ٤أكة8‏ اهاءا۷ المتغيرة الطول» وذلك لان 
والتحقق من المساحة المتوفرة .... الخ. 

من اMode Component Object‏ او برمجة الكائنات المكونة 00۷ ملاحظة: 

من ۷|۸0۷ والتي تمکن تطبیقات 01۴ التقنيات المبنية على 

الاتصال وتبادل البيانات فيما بينهاء الفصلان الثاني عشر والثالت 

" يختصان بهذه التقنية. C0١۷‏ عشر "برمجة المكونات 

فهي باختصار تغطي على ١‏ أو١عا-عاطهةأ۷2۲‏ بالنسبة للمتغيرات المتغيرة الطول 
10جميع عيوب النوع السابق. الا انها تحتجز مس أحة تعادل ضعف عدد الحروق + 
بايتات اضافية تحوي معلومات عن المتغير الحرفي آحجمه وغيرها من التفاصيل 
عنك» والعدد الاقصى من الحروف التي يمكن حفظها ات86 اقنءا۷ التي يخفيها 
جيجا بايت. 2 في هذا النوع يصل إلى 

ectز[b‏ 0 لمتغیرات من النوع : ۱ 

او بنوع فئات هي اءعز[ط0 معظم المتغيرات التي تمتثل اسنادات سواء صرحت بالنوع 
ect‌ز0bمتغیرات‏ من النوع : 

Dim X As Object 

Dim Y As Form 

Dim Z As Text 

- حتى الوصول الى اءع[ط0 المتغيرات من النوع-اود ان اؤجل شرح تفاصيل الكائنات 
الفصل الخامس "البرمجة أسنادية التوجه " وحتى ذلك الحين» لا تسند أسناد الى 
اسناد 

الا باستخدام العبارة : 

Set X =New MyClass 

Set Y =Formil 

Set Z =Texti 

= "اسناد قيمة خاصية ولیس اسناد” 

2.e»‏ = "اسناد قيمة خاصية ولیس اسناد” 

لا تشغل بالك آثيرا بالكود السابق. فالفصل الخامس قادم اليك. 
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: لمتغیرات من النوع‎ arian 

وتعدلت بنيته التحتية منذ ۷83 في الاصدار ٤۸ا2۲‏ ۷ظهرت المتغيرات من النوع 

> ويستطيع حمل جميع انواع البيانات C0٧۷‏ حتى تتوافق مع تقنية ۷84 الاصدار 
.... الخ. Long Date Str ٣9‏ السابق ذارھا مثل: 

بايت»البايت الاول يحدد نوع القيمة 16 هو ها۷ الحجم الذي يستهلكه المتغير 
لا تستخدم الا في حالة آون القيمة 7 الى 2 الموجودة في المتغيرء والبايتات من 
فهي تمتل القيمة التي يحملها 15 الى 8 » اما البايتات من اة" 06i‏ من النوع 


المتغير. 

ليس فقط في امكانية اشتمالها "آ۷۲ الميزة التي تتميز بها المتغيرات من توع 
على انواع مختلفة من البيانات بل واجراء العمليات الحسابية او المنطقية عليهاء 
باختبار نوع المتغيرات ومن تم اجراء العملية الحسابية أو ٤أئة8‏ اةاءأا حيث يقوم 
المنطقية المناسبة لها: 

Dim X As Variant 

Dim Y As Variant 

Dim Z As Variant 

!nteger‏ ` 2000= × قيمة من النوع 

۷Y =Cاn9(2000 )' Long‏ قیمة من النوع 

n9‏ ` ۷+ ×= 2 قيمة من النوع 

Double‏ ) 2.5(اCDb=‏ × قیمة من النوع 

Double‏ ` ۲+ ×= 2 قيمة من النوع 
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لا تحاول الاعتماد على الطرق السابقة بشكل استتثنائيء فقد تعطيك نتائج غير 
يؤدي الى Variant‏ متوقعة» فمتلا استخدام معامل الجمع + مع متغيرين من النوع 
جمعهما اذا أتت قيم عددية. اما الحرفية فتتم عملية الدمج بينهما آاستخدام 
Visual‏ > واذا أن احد المتغيرين حرفي والاخر عددي فسیقوم8 معامل الدمج 
بمحاولة تحويل القيمة الحرفية الى عددية» وان لم يستطع فرسالة lلخطİ Basic‏ 
سيكون لها نصيب فضي lلظۈggر: Type Mismatch‏ 

Dim X As Variant 

Dim Y As Variant 

Dim Z As Variant 


Z2 SM +۷ A >> 02ش‎ 

Print Z 

X =20 

Y " =abcd" 

۷+ ×= 2 'رسالة خطاأً ۱ 

واعجبت بها آثيراء فتذآر انها ابطأً انواع آ٣۷‏ اذا فتنت في المتغيرات من النوع 
المتغيرات. فلا تحاول الاعتماد عليها الا عند الضرورة القصوى او عند الحاجة 
اaصciه(لاستخدام‏ المتغيرات من النوع . 

باستخدام ۷313۸٤‏ تستطيع معرفة نوع القيمة الموجودة في المتغير من النوع 
aJlıJlVarType‏ : 

Dim X As Variant 

X =20 

Print Var ype(×X ) Integer‏ وهو النوع 2 تطبع 

XxX" =20" 

: وھو النوع 20 تطبع‎ Print × ' Sti 

والتي ۷أم E"‏ فان القيمة الابتدائية له هي ا١‏ ه۷3۲ اذا لم تسند اي قيمة للمتغير 
1sEMptyتستطيع‏ اختبارها بالدالة : 

Dim X As Variant 

Print IsEmpty)X (C True 

XE >20 

Print IsEmpty)X (C False 

X =Empty 

Print IsEmpty)X (C True 

لا تعتبر قيمة خالية فهي قيمة ااںN‏ » لان yأم۳ع‏ فهي لا تعني ااں. اما القيمة 
(ats‏ معينة تستخدم في الغالب مع قواعد البيانات : 
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Dim X As Variant 

X =Null 

Print IsNull)X ( True 

Print Var ypمe(×X ) Null‏ وهو النوع 1 تطبع 

> لكن لا تنسى كأءع زط0 يمكن لها ان تحتوي اسنادات ۷3۲3٣‏ والمتغيرات من النوع 
عند اسناد قيمة اسناد الى متغيرء واذا اردت ا56 استخدام الكلمة المحجوزة 
فهي تعطي نوع قيمة الخاصية ع٥م۷/3۲۲۷‏ الاستعلام عن نوع المتغير» فلا تستخدم 
فهي تفي بالغرض المطلوب: أءعزط50][ الافتراضية للكائن. اما الدالة 

Dim X As Variant 

Set X = Textil 
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Print IsObject)X ( True 

_Text1.Text ' = "صنلl"‎ X.Text 

يمكن لها ان تحوي مصفوفات اما سياتي في ه۷3۲ اخيراء المتغيرات من النوع 
فيمكن احتضانها 01ل فقرة "الترآيبات والمصفوفات "» وبالنسبة للترآيبات من النوع 
مصرح على ءاطلا" شريطة ان يكون الترآيب من النوع ۷313٣‏ في المتفيرات 
iاطاu‏ » أو على مستوى وحدة الفئات العامة عاuاله"‏ مستوى الوحدة البرمجية 
.Classes‏ 

الثوابت 

ابسط انواع الثوابت هي الثوابت العددية والتي يمكنك آتابتها مباشرة بالنظام 

او اex>adecimaطH‏ للنظام الستعشري ۳8 او باضافة البادثة اة"٣أءم0‏ العشري 
للنظام التماني: 0&8 البادئة 

` 15 جميع الاعداد التالية تساوي 

Print 15 

Print &HF 

Print &O17 

من الضروري ان انبه هنا بان جميع الاعداد المستخدمة في النظام الستعشري 
والتي تكتبها في اآوادك اقاء0 والنظام الٿثما ني 2..... Hexadecimal Î 0. 1. F «EË‏ 
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بعد نهاية & مالم تضيف الرمز 9€۲عا"1 اعداد من النوع ٤أكئة8‏ اقاءآاتعتبر فقي نظر 
. قد تكون جملتي السابقة ليست ذات اهمية آبيرة 10۸9 العدد فسيكون من النوع 
عند معظم المبرمجين المبتدئين» لذلك علي ان اشد انتباههم بهذا المتال: 
CT‏ 

` &HFO0O0 =61440 

Print &HFONO0‏ '- 4096 هنا تطبع 

Print &HFOO‏ & ` 61440 هنا تطبع 

'تماني 

'&0170000 =6140 

Print 801/00‏ '- 4096 هنا تطبع 

Print 801700‏ & ` 61440 هنا تطبع : 

> والتي يشترط آتابتها بين 5۲1١95‏ بعد الثوابت العددية تأتي الثوابت الحرفية 
علامتي التنص يص المزدوجة " و ". ولاستخدام علامة التنصيص " في نفس الثابت 
الحرفي» اررها مرتين: 

مخرجات الكود التالي هي: 

'ثابت حرفي 

` 6 

Pin‏ "تابت حرفي" 

Print "123""456" 

Print "™™"" 

فكرة التوابت المسماة شبيهه بفكرة المتغيرات» ويكمن الفرق بينهما في أن قيم 
الثوابت لايمكنك تعديلها وقت التنفيذ لانها قيم ليست موجودة بالذاآرة آقيم 
المتغيرات» وانما يتم استبدال هذه الاسماء بقيمتها الفعلية في الكود اتناء عملية 
للبرنامج. ۴×۴ . فالتوابت تحفظ مباشرة في الملف التنفيذي و١١اام"٣K0‏ الترجمة 
stئConتستطیع‏ تعریف تابت جدید باستخدام العبارة : 

Const PI =3.14 

Print PI 

آما يفضل تعريف نوع الثابت لزيادة سرعة التعامل معه: 
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Const PI As Double =3.14 

Const PROGRAMMER_NAME As String‏ = "تراي العامري" 


أعداد المبرمج:مشتاق طالب رشيد العامرى ١ه‏ 
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Const SPECIAL_VALUE As Long =8&H32FE& 
ارجو ان تلتزم بالقيمة المناسبة عند تحديد نوع الثابت» فلا تسند قيمة عشرية‎ 
متلاء لان قيمة الثابت ستتغير ان لم تظهر رسالة 1"696۲ لثابت صحيح -آالنوع‎ 

: lطèخJl‎ Type Mismatch 

Const P1 As Integer =3.14‏ ` 3 القیمة ستکون 

Const P1 As Integer = "abc‏ ” 'ستظهر رسالة خطأً 

على مستوى الاجراء المحلي» عأة۷آ۴۲ اخيراء قابلية الرؤية الافتراضية للتوابت تكون 
او على مستوى نافذة النموذج او الفئة اذا صرح عنها في منطقة الاعلانات العامةء 
. مع تضمين 845 او على مستوى المشروع اذا صرح عنها في ملفات البرمجة 
cاااPuالكلمة‏ المحجوزة : 

Public Const PI As Double =3.14 

الترايبات والمصفوفات 

بالاضافة الى انواع المتغيرات السابقة» تستطيع تخصيص انواع جديدة تعرفق 
بالترآيبات» آما يمكنك ربط سلسلة من المتغيرات في مصفوفات احادية او متعددة 
الابعاد. 

Enum‏ ترایبات 

يمكنك تعريف نوع جديد من المتغيرات بحيث يحتوي على قيمة من مجموعة قيم 
لتعریف ٤۸1۳‏ . تستطيع استخدام الكلمة المحجوزة Enum‏ تعرق بال 
الترآيب شريطة ان يكون في منطقة الاعلانات العامة هذا مثال يعرق ترآيب لأيام 
Private Enum enmDay‏ 

Saturday 

SunDay 

MonDay 

86 

TuesDay 

Wednessday 

Thursday 

Friday 

End Enum 

والان يمكنك استخدام الترآيب السابق لتعريف انواع جديدة من المتغيرات: 
Dim X As enmDay‏ 

Dim Y As enmDay 

X =Saturday 

Y۷ =X 

او حتى استخدامها لاستقبال المتغيرات في اعلى الاجراءات: 

Private Sub MySub)TheDay As enmDay( 

If TheDay =Friday Then 

"Msg B0X‏ |اجازة" 

Exit Sub 

End If 

End Sub 

ماهي الا متغيرات عددية من النوع ۴٣1"‏ حقيقة المتغيرات من النوع ترايبات 
فتستطيع التعامل معها آما لو أتت متغيرات عددية: 10٣۸9‏ 

Dim X As enmDay 

X =Saturday 

Print X 

X =X +1 

Print X 


أعداد المبرمج:مشتاق طالب رشيد العامري ٠٣‏ 


mushtaq_talib58@yahoo.com## #Mushtaq Talib Rashed 2009: جميع الحقوق محفوظة للمولف‎ 


» ولتخصيص قيم من عندك» ارجع0 آما تلاحظ يبدأ ترقيم عناصر الترآيب من العدد 
الى تعريف الترآيب وضع القيم من عندك: 
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Private Enum enmDay 

Saturday =20 

SunDay =30 

MonDay 

TuesDay 

Wednessday 

Thursday 

Friday 

End Enum 

. مع العلم ان مقدار الزيادة لباقي العناصر تكون 
1لاترایبات من النوع 

Defined‏ اهل يعرق هذا النوع من الترآيبات بالانواع المعرفة من قبل المستخدم 
حيث تمكنك هذه الترايبات من الاحتواء على انواع مختلفة من البيانات» كممرآ 
لتعريف ترايب جديد: ٥م۲۷‏ استخدم الكلمة المحجوزة 
Private Type typPerson‏ 

sName As String 

bSingle As Boolean 

iAge As Integer 

End Type 

ويمكنك استخدامه مباشرة آما في هذا الكود: 
Dim Turki As typPerson‏ 

Dim Ali As typPerson 

= "ترآي العامري"‎  urki.sNam€ 

Turki.iAge =99 

Turki.bSingle =True 

= "علي العلي"‎ .sNam€ 

Ali.iAge =35 

Ali.bSingle =False 

88 

Ali =Turki 

Print Ali.sName 

تفي بالغرض: 18۸8 ولمعرفة حجم الترآيب» فالدالة 
Print LenB )Turki(‏ 

لا تنسی انه یمکن للترآیبات ان تحتوي علی ترآیبات اخری: 
Private Type typAdress‏ 

sCountrey As String 

sCity As String 

End Type 

Private Type typPerson 

sName As String 

bSingle As Boolean 

iAge As Integer 

Address As typAdress 

End Type 

الوصول الى عناصر الترآيب المحضن يتم من خلال الترآيب الحاضن لها: 
Dim Turki As typPerson‏ 

= ا "ترآي العامري"‎ urki.sNam€ 

Turki.iAge =99 
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Turki.bSingle =True 
= "ülرمظلا"Turki.Address.sCity‎ 
= ا "المملكة العربية السعودية"‎ urki.Address.scountrey 
بالنسبة لقابلية الرؤية فلن تستطيع تعريف الترآيبات باستخدام الكلمة المحجوزة‎ 
۴ںاbاic واذا آنت عنيدا واصررت على استخدام الكلمة كعءءها€ الا في الفئات‎ > 
بتصريح ٥٤1ك82 اةuاءا۷ . فسيسمح لك 845 في ملفات البرمجة ءاااں۴u المحجوزة‎ 
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متغيرات جديدة من الترآيب العام ولكنك ستصاب بخيبة امل آبيرة ان علمت ان‎ 
لا يمكنك استخدام هذه الترآيبات ءااطانا۴ الاجراءت المصرحة على مستوى الوحدة‎ 
آقیم مستقبلة‎ Parameters لھا:‎ 
'غیر ممکن‎ ( Pubاic‎ Sub MySub)P As typPerson 
`'ممکن‎ ( Private Sub MySub)P As typPerson 
`ممکن‎ () Freind Sub MySub)P As typPerson 
تستطيع تعريف الترآيبات على مستوى كعءءها) ملاحظة: بالنسبة للفئات‎ . 
٥ںubااc 1لا تساوي - وہ stanCiہ شریطة ان تكون قیمة الخاصية‎ 
.Private 
المصفوفات‎ 
سواء أتت احادية كره۸۲۲ من انشاء والتعامل مع المصفوفات ءأكئة8 اعاءأ۷ يمكنك‎ 
بعدا: 60 قد تصل الى-البعد او متعددة الابعاد‎ 
100 'عنصر‎ Dim OneDim )99 (As Intger 
'تنائية الابعاد‎ Dim woDim (4, 9 )As Integer 
لاتیة الابعاد‎ Dim hreeDim (2, 2, 2 )As Integer 
Dim OneDArray)0 To 10 (As String 
Dim TwoDaArray)O0 To 10, O0 To 10 (As Long 
Dim OneDArray)15 To 22 (As String 
تستطيع البدء في عملية اسناد القيم بمجرد تصريح المصفوفة مع العلم ان فقهرس‎ 
يبدأ من صفر مالم تستخدم الكلمة المحجوزة ×عل"1 ۸۲۲۷ المصفوفة‎ pti 
Base 1 قي منطقة الاعلانات العامة للوحدة البرمجية فانه سیبداً بواحد:‎ 
OneDim )0 = (100 
OneDim )1 = (200 
TwoDim )0, 0) = (100, OneDim )O0 + (OneDim )1(( 
90 
ملاحظة: رغم ان بدء ترقيم فهرس المصفوفة يمكن ان يبدأ بواحد. الا انني لا‎ 
فعل ذلك. فعند نقل الاآواد بين ٤ئ82 اةاء۷ احبذ لمبرمجي‎ 
المشاريع المختلفة او الوحدات البرمجية المختلفة قد لا يتم تفعيل‎ 
مما يترتب عنه ظهور عشرات 1 ع825 ١٥اام0 الكلمة المحجوزة‎ 
الاخطاء البرمجية.‎ 
ولمعرفة رقم العنصر الاول استخدم الدالة‎ 1801 ٩ تعود برقم ٩801ل بينما الدالة‎ 
العنصر الاخير:‎ 
Dim ICounter As Long 
For IKCounter =LBound )OneDim (To UBound )OneDim( 
Print OneDim )ICounter( 
Next 
اما مع المصفوفات المتعددة الابعاد» عليك ارسال رقم البعد مع الدالتين‎ Bound و‎ 
:LBound 
تطبچع‎ Print UBound )TwoDim ( 4 
تطبع‎ 4 ` ( Print UBound )TwoDim, 1 
تطبچع‎ 9 ` ( Print UBound )TwoDim, 2 
المصفوفات السابقة‎ آw0Dim‎ .0neD¡m و‎ ۲۸۲e" هي مصفوفات ستاتيكية أي‎ 


أعداد المبرمج:مشتاق طالب رشيد العامري ٠٤‏ 
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تابتة الحجم لا تتغير في وقت التنفيذ. لذلك فالمرونة الحقيقة ستكون مع 
التي تتيح لك التحكم في حجم ك۷ه۲اA‏ عiاصهمy‏ 0 المصفوفات الديناميكية 
المصفوفات آلما دعت الحاجةء وتصريحها يكون بدون ذآر حجمها: 

Dim DynamicArray (OAs String 

اولا R0۳‏ قبل ان تبدا في عملية اسناد القيم. عليك استخدام الكلمة المحجوزة 
مع ذار الحجم: 

ReDim DynamicArray )2( 

”aرون"‎ )( = DynamicArray )0 
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DynamnicArray )1‏ = ( “"العنود“ 

DynamicArray )2‏ = ( "الھنوف” 

مرة اخرى وعليك معرفة ۸01۳ لو اردت زيادة او تقليص حجم المصفوفة» استخدم 
ان جميع محتويات المصفوفة سوق تلغى: 

ReDim DynamicArray )4( 

DynanicArray )3‏ = ) "جنان" 

DynamicArray (4‏ = ( "زغلول!"” 

Print DynamicArray (4‏ ( 'تطبع "زغلول!" 

Print DynamicArray )2‏ ( "۷ا تطبع شیئ 

واذا رغبت بتغيير حجم المصفوفة دون المخاطرة بفقد البيانات الموجودة فيه |ء 
جاهزة للاستخدام: ع٥۲۷‏ ٥5ء۲۲‏ فالكلمة المحجوزة 

ReDim Preserve DynamicArray )4( 

DynanicArray )3‏ = ( "جنان" 

DynamicArray (4‏ = ( "زغلول!” 

Print DynamicArray (4‏ ( 'تطبع "زغلول!" 

Print DynamicArray )2‏ ( 'تطبع "'الھنوف" 

يقودني لاخبارك انك لن تستطيع تغيير ابعاد المصفوفة» ۴۲٠56۲۷٥‏ الحديث عن 
فالمصفوفات الديناميكية التالية: 

Dim OneDim ()As Integer 

Dim TwoDim ()As Integer 

ReDim OneDim )4( 

ReDim TwoDim )2, 2( 

: لن تستطیع تغییر ابعادها باستخدام‎ reserve 
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مستحیل 

ReDim Preserve OneDim )3, 3( 

ReDim Preserve TwoDim )1( 

'ولکن هذا ممکن 

ReDim OneDim )3, 3( 

ReDim TwoDim )1( 

للمصفوفات الديناميكية هي امكانية ۷/86 من المزايا التي اضيفت الى الاصدار 
نسخ قيم مصفوفة آاملة الى اخ رى في سطر واحد شريطة ان تكونا من نفس 
النوع» فبامكانك كتابة شيئا مثل: 

Dim MyArray )20 (As Integer 

Dim YourArray ()As Integer 

MyArray )O0 = (10 

MyArray )1 = (20 


YourArray = ()(MyArray 0‏ 
Print YourArray )0 ( = 10‏ 
نقطة اخيرة حول المصفوفات الديناميكة وهي امكانية تدميرها باستخدام العبارة 


أ عداد المبر مج:مشتاق طالب رشبد العامرى ٥ه‏ 
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:Erase 

Erase OneDim 

مرة اخرى: ۸٤‏ هآ ج۷النوع 

يمکكن لها ان تمتل مصفوفات اما عن طريق اسناد ۷2۲2٣‏ المتغيرات من النوع 
Dim Cities)2 (As String‏ 

Dim vCities As Variant 

) = "دادغب"Cİiti‎ e0 

) = "ةدج"Cities)1‎ 

) = "tp "Cities)2 

vCities =Cities 

Print vCities)1‏ ( 'جدة 
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: او باستخدام الدالة‎ Ar r۷ 

Dim vCities As Variant 

"VGities =Array‏ بغداد') ," جدة' ,("ابہا" 

Print vCities)0‏ ( 'بغداد 

هو انشاء مصفوفات ۷3۲3٣‏ من الاشياء التي تعجبني في المتغيرات من النوع 

> وهي مصفوفات ابعادها تختلف من A۲۲2۷5‏ Dimens¡i0۸-eاVariab‏ مختلفة الابعاد 
عنصر لاخر فقد يكون العنصر الاول احادي البعد والتثاني تنائي البعد والتالث تلاتي 
على ة۷ البعد وتطبيقها سهل جداء الطبخة آلها احتواء مصفوفة من النوع 
عدة مصفوفات: 

Dim VarDim)2 (As Variant 

arDiM0"احادي‏ البعد" = ( 

arDim(1 = )Arra" 1‏ "تناثئي البعد," 2 ("تنائي البعد 

arDim(2 = )Arra"1‏ "تلاتي البعد," 2 "تلاتي البعد," 3 ("تلاتي البعد 

Print VarDim)0( 

Print VarDim)1)(0(, VarDim)1)(1( 

Print VarDim)2)(0(, VarDim)2)(1(, VarDim)2)(2( 

المجموعات 

تلعب المصفو فات دورا حيويا في برامجك الجدية خاصة بالامور التي تتعلق بالحلقات 
تعتبر اآثر مرونة من المصفوفات ١5‏ ٠اءء‌ااه٤‏ التكرارية وغيره |. الا ان المجموعات 
من حيث اضافة وازالة العناصر منه |. الهدفق من هذه الفقرة هو تعريفك بالمجموعات 
وطرق استخداماتها. 

مزايا المجموعات: 

> وظيفتها ۷8۸ عبارة عن أسنادات مشتقة من مكتبة 5١0اعااه٤‏ المخموعات 
الرئيسية متل وظيفة المصفوفات تماما الى انها تختلف عنها في النقاط التالية: 
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- المجموعات لا تحتاج الى تحديد حجمها عند عملية تصريحه |. فعند تصريحك 
لمجموعة جديدة تستطيع اضافة العناصر لها وقت التنف يذ ديناميكيا أي بدون تحديد 
أي حجم لها ستاتيكيا. 

- تستطيع اضافة العناصر الى المجموعات في أي مكان تريده في المجموعة . أي 
لست مضطر | لوضعها في نهاية القائمة مثل المصفوفات. فالمجموعات تعطيك حرية 
آبيرة في اضافة وحذق العناصر سواء أتت في بداية المجموعة او نهايته | او حتى 
في وسطها. 

- المجموعة الواحدة يمكن ان تحتوي عناصرها على انواع بيانات مختلفة» اي قد 
بعكس المصفوفات التي لابد من 9€۲عا"1 والتاني 5٣١"9‏ يكون العنصر الاول فيها 
توحید نوع عناصرها. 

بدون ۸8۷ - توفر المجموعات طرق اخری لتحدید عناصرها عن طریق مفاتیح 


أعداد المبرمج:مشتاق طالب رشيد العامرى ٦ه‏ 
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استخدام اسلوب الترقيم الذي تتبعه المصفوفات. 

بعد هذه المزايا قد تحرم استخدام المصفوفات وتنتقل الى المجموعات الى الابد ! 
لكن من المهم جدا ان تضع في ذهنك ان المجموعات ابطاً من المصفوفات باآثر من 
مرة ! لذلك. لا تستخدمها ان تت السرعة تعني لك الشىئ الكثير . المزيد 100 
ايضا. المجموعات تستهلك مساحة اآبر بكثير من المساحة المطلوبة في الذاآرة » 
ويعيب المجموعات ان عناصرها المضافة قابلة للقراءة لكن ليست قابلة للتعديل ! 
فلتعديل قيمة عنصر من عناصر المجموعة» عليك القيام باسلوب غير مباشر آحذف 
العنصر المراد تعديله واضافته من جديد بعد التعديل. 

برمجة المجموعات: 

الخطوة الاولى التي تحتاجها هي انشاء أسناد المجموعة والذي تحصل عليه من 
ectionااcoالنوع‏ -الفئة- : 

Dim MyCol As New Collection 

مع ارسال قيمة العنصر له |. A۸۵٩‏ ولاضافة عناصر الى المجموعة» استخدم الطريقة 
اذ | اردت ختى تستخدم آطريقة اخرى للوصول ۸٥۷‏ آذلك. تستطیع ارسال مفتاح 
الى العنصر بدون الاعتماد على رقمه: 
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MyCol.Add "amazon.com", "shopping" 

MyCol.Add "hotmail.com", "mail" 

MyCol.Add "yahoo.com", "Search" 

-او حتى تجاه لا- 16۳ تستطيع الوصول الى عناصر المجموعة عن طريق الطريقة 
وارسال رقم العنصر او مفتاحه: 

Print MyCol.Item)1 (' amazon.com 

Print MyCol.Item")mail (" hotmail.com 

Print MyCol")Search (" yahoo.com 

Removeولحذق‏ العنصر استخدم الطريقة : 

MyCol.Remove 1 

MyCol.Remove "mail" 

واسرع طريقة تمكنك من حذف جميع العناصرء قم بانهاء اسناد المجموعة: 
Set MyCol =Nothing‏ 

لکن تذآر! عليك باعادة انشاء الكائن حتى تتمكن من اضافة عناصر جديدة: 

'خطاً في هذا السطر 

MyCol.Add "amazon. com’, NS 

Set MYCOI =New Collection 

MyCol.Add "amazon.com", "shopping" 

: اخيرا» لمعرفة عدد العناصر في المجموعة استخدم الطريقة‎ unt 
Print MyCol.Count 
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الاإجراءات والدوال 

۴unctionsودوال‏ » Sub's‏ من تعریف اجراءات ٤c‏ آsة8‏ اھاءا۷ يمكنك حبیب القلب 
حيت يمكن للدوال من العودة بقيمة بعد نهاية تنفيذ الدالة» نوع القيمة التي تعود 
بها الدالة هو النوع الذي تكتبته في نهاية تعريف الدالة: 

'دالة تعود بقيمة حرفية 

Function GetUserName ()As String 

Name‏ serلetJ‏ = "ترآي العامري” 

End Sub 

1ل 'دالة تعود بترآیب 

Function GetPersonData ()As typPerson 

GetPersonData.sName‏ = "ترآي العامري” 


أعداد المبرمج:مشتاق طالب رشيد العامري ٠۷‏ 


mushtaq_talib58@yahoo.com## #Mushtaq Talib Rashed 2009: جميع الحقوق محفوظة للموٌلف‎ 


GetPersonData.iAge =99 

End Function 

الكود الموجود داخل الدالة. يتعامل مع اسم الدالة آمتفير من نفس نوع الدالة: 
Function OddNumbers ()As String‏ 

Dim iCounter As Integer 

OddNumbers ="” 

For iCounter =0 To 9 

If iCounter Mod 2 <> O0 Then 

OddNumbers =OddNumbers & iCounter 

End If 

Next 

End Function 

تنتهي عملية تنفيذ الاجراء او الدالة بمجرد الوصول الى نهايته» تستطيع انهاء 
Exit Function‏ للاجراءات والعبارة 1ا5 اآ×٤‏ تنفيذھما قبل ذلك باستخدام العبارة 
لانھاء Exit Function‏ یستخدم ۸٥0|اrsاRecu‏ للدوال. هذا متال للخوارزمیات التراجعیة 
عملية تنفيذ الدالة: 
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Function FactorialliNum As Integer (As Long 

If iNum =1 Then 

Factorial =1 

Exit Function 

Else 

Factorial =iNum *Factorial)iNum -1( 

End If 

End Function 

> اي تستطيع Public‏ بالنسبة لقابلية الرؤية للاجراءات والدوال فالافتراضية 
استدعائها من اي مكان في المشروع: 

65 في ملف برمجة 

Sub MySubı1 () 


End Sub 
"في نافذة نموذج‎ ۴1 
يمكنك تجاھل الكلمة المحجوزة‎ Pubاic‎ Sub MySub2 )(' Public 


End Sub 

۴2 "في نافذة النموذج 

Private Sub Form_Load() 

MySub1 

Form1.MySub2 

End Sub 

السابقة لاسم الاجراء او الدالة» فهِي تمنع المبرمج عأة۷آ۴۲ اما الكلمة المحجوزة 
من استدعاء الاجراء من خارج الوحدة البرمجية: 

۴1 "في نافذة نموذج 

Private Sub MySub () 


۴2 'في نافذة النموذج 

Private Sub Form_Load() 

۴orm1.MySub‏ 'فقط ۴٥۲۳1‏ لن تستطيع استدعاء الاجراء لانه خاص بالنموذج 
End Sub‏ 


أعداد المبرمج:مشتاق طالب رشيد العامرى ٠۸‏ 


mushtaq_talib58@yahoo.com## #Mushtaq Talib Rashed 2009: جميع الحقوق محفوظة للموٌلف‎ 


في ٤ااانا۴‏ فهو نفس تأثير الكلمة المحجوزة ۴۲|٠١‏ اما تأثير الكلمة المحجوزة 
> ويكمن الفرق بينهما في حالات بناء مشاریع ۴×۴ ١2۲4‏ هك المشاريع القياسية 
يمكن ان يستدعيها المبرمج ءأاالا۴ حيث ان الاجراءات من النوع ×ع۷ا)A‏ من النوع 
فلن ۴٣١! ٣١‏ . اما الاجراءات من النوع C0۷‏ من خارج المشروع عن طريق الاتصال 
بتمکن آک تسش ہن استدعائها ما دامت اآواده خارج اآواد مشروعك. 
الارسال بالمرجع او القيمة 

. تحدید ۲sعeاعمص Para‏ قابلة لاستقبال متغیرات ١٣٥ااcہ۴u‏ او Sub's‏ الاجراءات 
المتفيرات التي يحتاجها الاجراء يعتمد بشكل آبير على الهدف والوظيفة التي يقوم 
يمكن ان ١٣0ا ۴u"‏ او ك'طSu‏ بها الاجراء . بصفة عامة» الاجراءات سواء أتت 
String‏ او امو1nteتستقبل‏ انواع مختلفة من المتغيرات سواء أتت انواع قياسية آ 
ئئكا او فئات . 01ل .... الخ» او حتى انواع معرفة من قبل المستخدم آترآيبات 
. عملية ارسال المتغير كرة١A۸۲‏ بالاضافة الى قابلية الاجراءات لاستقبال المصفوفات 
الى الاجراء تتطلب وضع القيم بين قوسين في حالة آون الاجراء سيعود بقيمة 
لمستدعي ذلك الاجراءء اما غير ذلك فلا يشترط وضع الاقواس. 
افتراضيا» تستقبل الاجراءات المتغيرات المرسلة لها بالمرجع . وان رغبت في جعلما 
عند تصريح المتغير الذي اة8/۷ تستقبل المتغيرات بالقيمة فلابد من كتابة الكلمة 
يستقبله الاجراء . اما الفرق بين عملية ارسال المتغير بالمرجع وارساله بالقيمة فهو 
تقوم على اساس ارسال ۸٤۴6۲۵۴۸٤٥‏ بسيط جد |. فعملية ارسال المتغير بالمرجع 
مؤشر للمتغير أي عنوان المتفير بالذاآرة والذي عن طريقه تستطيع تعديل قيمة 
المتغير من الاجراء: 
Sub Start()‏ 
"هنا نقطة البداية 
Dim X As Integer‏ 
'X =0‏ 
Print X‏ 
MySub X‏ 
وک ر 
99 
Print X‏ 
End Sub‏ 
Sub MySub )X As Integer(‏ 
X =5‏ 
End Sub‏ 
توقع استقبال مرجع لمتغير من نوع ا1۷5 فكما تلاحظ في الكود السابق؛ الاجراء 
مما يعطيه القدرة على تغيير القيمة المرسلة له. الكثير من الحلول يوفرها #۲وع†ہ1 
لك اسلوب الاستدعاء بالمرجع لعل اسهلها اجراء يقوم بتبديل قيمتين مرسلتين له: 
Sub Swap )X As Variant, Y As Variant(‏ 
"اجراء يستبدل قيم انواع مختلفة 
"من المتفيرات المرسلة 
Dim vTemp As Variant‏ 
vTemp =X :X =Y :Y =vTemp‏ 
End Sub‏ 
Sti"‏ اما الارسال بالقيمة فهو ابطا من الارسال بالمرج ع خاصة مع الحروفق 
سيضطر لنسخ قيمة المتغير الى مكان مؤقت عءأكة8 اةuءآ۷‏ والسبب في ذلك ان 
في الذاآرة» آذلك لن تستطيع تعديل قيمة المتغير المرسل لك . لجعل الاجراء 
اة8y۷يستقبل‏ متغيرات بالقيمة استخدم الكلمة المحجوزة : 
Sub Start()‏ 
"هنا نقطة البداية 
Dim X As Integer, Y As Integer‏ 
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'X =0,Y =0 
Print X, Y 
MySub X, Y 
'X =3, ¥ =0 
Print X, Y 
End Sub 
Sub MySub )X As Integer, ByVal Y As Integer( 
X =5 
100 
Y =10 
End Sub 
کک انواع اخری‎ 

.. الخ يمكن أن و٣ Integer S٣‏ eاD0ub‏ جميع الانواع القياسية للمتغيرات 
NL :‏ مكتبات كاه۲ا ٥0۸‏ ترسلها وتستقبلها الاجراءات. اما الانواع الاخرى آالادوات 
فتحتاج لشىئ من 51ل .... الخ وllترقيlıٽت VBA Î Screen «Printer «App‏ و VB‏ 
التفصيل: 
ارسال متغيرات الكائنات: 
فيمكنك ارسال متغيرات تابعة لکائنات ۴×۴ ۸03۲١4‏ ه5 بالنسبة للمشاريع القياسية 
×عivاAc‏ اللغة الى الاجراءات دون أي مشاآلء اما بالنسبة للمشاريع الاخرى آ 

.. الخ فلا يمكنك عمل ذلك الا للاجراءت التابعةö‏ nlشغرeaعك ActiveX O0CX «EXE‏ 
NS :‏ في ذلك ١۸ع‏ |۴۲ أو عأvaااP‏ وهي الاجراءات التي تصرح بالكلمة المحجوزة 
یمکن ان تستدعی من برامج ٤اطلا۴‏ يبدو بديهي | اذا علمت ان الاجراءات من النوع 
۵M‏ آما ستعرق في الفصل الثاني عشر "برمجة المكونات 00٥۷‏ اخرى عن طريق 
1 
آل ارسال المتغیرات الترآیبات : 
مما والتي تنشئها عن طريق الكلمة المحجوزة 01ل المتغيرات من نوع الترآيبات 
تستطيع ارسالها لكن في حالات خاصة وشروط معينة اختصرها في هذه النقاط: 
ومعرف في داخل وحدة برمجية آنافذة عاة۷آ۴۲ - اذا أن مجال الترآيب من نوع 
نموذج» فئة. ملف برمجة الخ .. فان الاجراءت التي داخل تلك الوحدة البرمجية يمكن 
لها ان تستقبل المتغفيرات من نوع ذلك الترآيب. 
فان جميع 8۸5 معرق في ملف برمجة »اط۴ - اذا أن الترآيب مجاله عام 
الاجراءات التي في نفس المشروع قابلة لاستقبال ذلك الترآيب شريطة ان لا تكون 
icاb ۴u‏ هذه الاجراءات من النوع . 
. فان ×عi۷ا۸‏ في مشروع من النوع ككهةا٣‏ - في حالة آون الترآيب معرف في فثة 
الاجراءات الموجودة في بر نامجحك تستطيع ان تستقبل ذلك الترآيب المعرفق في 
1-Pivate .‏ لا تساوي و”ci [stan‏ اذا أتت الخاصية ٥0۳۷‏ داخل مكون 


101 
تخصيص المتغيرات المرسلة 

او غير محدودة اةهأأم0 تستطيع تخصيص المتغيرات المرسلة اما بجعلها اختيارية 
Unlimited Parameters‏ لدد . 
المتغيرات الاختيارية: 
اذا أن عدد المتفيرات المرسلة للاجراء غير عدد المتغيرات المصرحة فيه والتي 
يتوقعهاء فان رسالة الخطأاً لها نصيب . لذلك. في حالات آثيرة جدا تريد ان تجحعل 
اجراءك مرن بما فيه الكفاية وذلك عن طریق تعریف متغیرات اختيارية تعطي 
المستخدم حرية ما اذا أن يريد ان يرسلها او لا . تتم هذه العملية عن طريق 

. واذا اردت معرفة ما اذا أن المستخدم قد ارسل قيمة اة١‏ نام0 الكلمة المحجوزة 
تعود 9٣أكءا15M]‏ .» لكن احذر ! دالة و١”أكئاMء1‏ الى الاجراء تحقق عن طريق الدالة 
فقط: ۷2۲3۸ بقيم صحيحة في حالة آون المتغير المرسل لها من نوع 
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Sub Start() 

هنا نقطة البداية 

' MyFunction - =1 

Print MyFunction() 

' MyFunction =4 

Print MyFunction )2( 

End Sub 

Function MyFunction )Optional X As Variant (As Integer 

hen‏ ا) Missing (×X‏ 1۴ 'لم يتم ارسال قيمة للمتغیر 

MyFunction - =1 

ع۴ "تم ارسال قيمة 

MyFunction =X ^ 2 

End If 

End Function 

حتى نتمكن التحقق من ۷3۲3١‏ المشكلة هنا ان المتغيرات لابد ان تكون من نوع 
وهو ابطا الانواع استخدام . لذلك. يبدو ان الحل و١أكوا1!5×N‏ ارسالها عن طريق الدالة 
الافضل هو عن طريق وضع قيمة افتراضية تستخ دم في حالة لم يتم ارسال قيم 
للمتغيرات: 
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Sub Start() 

هنا نقطة البداية 

' MyFunction - =1 

Print MyFunction() 

' MyFunction =4 

Print MyFunction )2( 

End Sub 

Function MyFunction )JOptional X As Integer - =1 (As Integer 

hen‏ 1= - × ۴ا 'لم يتم ارسال قيمة للمتغير 

MyFunction - =1 

ع۴ "تم ارسال قيمة للمتغير 

MyFunction =X ^ 2 

End If 

End Function 

لابد من ان تكون في نهاية سلسة اه١‏ هام0 ملاحظة: المتغيرات الاختيارية 
المتغيرات المرسلة الى الاجراء -اي من جهة اليمين. 

متغيرات غير محددة العدد: 

فقي هذه الحالة. فانك لا تحدد عددا معينا من المتغيرات التي سيستقبلما الاجراء 
لان القيم ستكون في مصفوفة تعرفها بنفسك عن طريق استخدام الكلمة 
. هذا متال لدالة ١ةأ٣‏ ة۷ . شريطة ان يكون المتغير من نوع ۴4۲١۸۲۲3۷‏ المحجوزة 
توجد مجموع القيم المرسلة لها: 

Function Sum )ParamArray args ()JAs Variant (As Long 

Dim iCounter As Integer 

For iCounter =0 To Ubound)args( 

Sum = Sum +args)iCounter( 

Next iCounter 

End Function 

ولاستدعاء الدالة آل هذه الامتلة صحيحة: 
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'Sum =10 

Print Sum )5, 5( 

‘Sum =100 
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Print Sum )20, 20, 20, 20, 20( 
'Sum =1000 
Print Sum )250, 250, 250, 250( 


التحكم في سير البرنامج 

من الاجراءات لن تكون ذات قيمة معنوية آبيرة مالم تستخدم عبارات التفرع %90 

لتتحکم في سیر 100 ... 00 او ۴r ... Next‏ او الحلقات التكراریة آ ect‌اSe‏ و 1۴ آ 

وعبارات التكرار ئأرعمصmعtهSt Branch‏ البرنامج. الفقرات التالية تشرح عبارات التفرع 

„Looping Statements 

۴التفرع باستخدام 

وحسب وانما ع٤أكئة8‏ اقuءا۷‏ الجميلة لا يستغني عنها اي مبرمج» ليس في 1آ جملة 

من اآثر العبارات استخدام | في 1f‏ في جميع لغات البرمجة . ومما لا شك فيه تعتبر 

المفضل- عدة سطور:-البرنامج» وهي تنجز اما قي سطر واحد او 

قي سطر واحد 

IfX > 0 Then Y =0 

IfX > 0 Then Y =0 Else Y =X 

IfX > 0 ThenX =0 :Y =0 Else Y =X 

قي عدة سطور 

If X > 0 Then 

Y =0 

End If 

If M > 0 Then 

T1 =1 

Else 

T- =1 

End If 

If M > 0 Then 
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T =1 

Elself M < O0 Then 

T- =1 

Else 

T =0 

End If 

اختصار الجمل الشرطية: 

u٥‏ اهو » 1۴ اذا تحقق الشرط او اصبحت نتيحة التعبير الشرطي الذي يلي جملة 

سیتم تنفيذها: 1۸8۸ ... 1f‏ فان اآواد التي تلي عبارة 

If Value =True Then 

End If 

If x <> 0 Then 

End If 

الاولی اننا اختبرنا ۴آ تستطيع اختصار الجمل الشرطية. فلو لاحظ ت في جملة 

اذ اما ااك صح او خط أ. المبرمجون المتمرسون يفضلون عuااة۷‏ القيمة المنطقية 

آتابتها بهذا الشكل: 

If Value Then 

End If 

يعتبر اي قيمة غير الصفر ٤أكة8‏ اقةuاءأ۷‏ الكود السابق صحيح والسبب في ذلك ان 
. قد تختصر 1 في حالة اختبار الشروط مع جملة عءاه۴ اما الصفر فهٍي ۲۲۷٥٤‏ هي 

جملة الشرط الثانية ايضا آما في هذا الكود: 

If x Then 


أ عداد المبر مج:مشتاق طالب رشبد العامرى ۲ ٦‏ 


mushtaq_talib58@yahoo.com## #Mushtaq Talib Rashed 2009: جميع الحقوق محفوظة للموٌلف‎ 


End If 
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صحيح ان النتيجة مماتلة. لكن حاول تجنب الاختصار في حالة استخدام قيم غير 
منطقية حتى لا تظهر لك نتائج غير متوقعة . لان القيم المناسبة للاختصارات ه٥‏ ي 
القيم المنطقية فقط وفيما عدى ذلك قد يسبب لك الكتثير من الشوائثب . راقب الكود 
التالي: 

Xx =3 

۷y =4 

x >< 0 And y ><> 0 Then‏ 1۴ 'الطريقة الصحيحة 

1f x And y Then‏ 'مشكلة في هذا الاختصار 

لقد استخدمت اسلوب الاختصار ویبدو ان جملتی الښش رط متماتلتین» لکن هل 
تصدق ان الشرطين السابق ين مختلفان تمام |! اذا اردت معرفة السبب قم بالرجوع 
وستعرف السبب ء 0100 و 0011 بنظام الاعداد التنائي ۷ و × الى قيمة المتغيرين 
تقوم بمقارنة 0۲ و ۸٣٩۵‏ والذي نستنتج منه باختصار على ان معاملات الربط آ 
القيم الثنائية للعدد بغض النظر عن نوعه. 

ct‏ eا6eالتفرع‏ باستخدام 

ectاع5Sبامكانك‏ تطبيق مبدأً التفرع باستخدام عبارة : 

Select Case iDay 

Case 1 

say‏ = "السبت” 

Case 2 

sDay‏ = “الاحر” 


Case 7 

sDay‏ = “"الجمعة" 

Case Else 

sy‏ = "غیر معرف" 

End Select 

في امكانية تطبيق المعاملات المنطقية او تحديد مجال ٤35€‏ تكمن قوة عبارة 
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Select Case iAge 

Case Is < =0 

sDesc‏ = "لم يولد" 

Case 1 To 11 

sD‏ = "طفل" 

Case 15 To 20 

ses‏ = "مراھق” 

Case 21 To 50 

sDesc‏ = "رجل" 

Case Is > =51 

ses‏ = "شایب” 

End Select 

المزيد ايضاء يمكنك تحديد مجحموعة قيم: 
Select Case sLetter‏ 

Case “A” To “B”, “a” To “b” 
"حرق ابجدي“”‎ = sاetteا‎ 

Case “0” To “9” 

"sدع"‎ = sاetter‎ 

CaS GL 
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"jمnر`‎ = sاetter‎ 

Case 

etter‌اs‏ = "غیر معروف” 

End Select 

ليس هذا فقطء بل يمكنك تحديد مجحموعة جمل شرطية: 
Select Case True‏ 

Case Xx > 0, Y <0 

'تعادل 

If )X > 0 (Or )Y < 0( 

End Select 

Select Case False 

Case Xx > 0, Y <0 

تعادل 
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‘If )Not JX > 0 ( (Or )Not )Y < 0( ( 

End Select 

الحلقات التكرارية 

: ۴حدد القيمة الابتدائية والقيمة النهائية للحلقة‎ ... Next 
Dim iCounter As Integer 

For iCounter =2 To 4 

Print |c0unter‏ 'سیتکرر تنفیذ الامر تلات مرات 

Next 

وعليك معرفة ان مقدار الزيادة سيضاف الى متفغير الحلقة حتى بعد نهايتها: 
Dim iCounter As Integer‏ 

For iCounter =1 To 3 

Print iCounter 

Next 

Pint |counter ` 3‏ وليس 4 قيمة المتغير بعد نهاية الحلقة 
معاكتستطيع التحكم في مقدار الزيادة او النقصان باستخدام : 
Dim iCounter As Integer‏ 

For iCounter =10 To 0 Step -1 

Print iCounter 

Next 

اهذا الكود الذي يطبع جدول كم هما dعادمN‏ يمكنك تطبيق فكرة الحلقات المتداخلة 
Dim A As Integer‏ 

Dim b As Integer 
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For A =1 ToS 

For b =A ToS 

Print A, "x", b, "=", A *b 

Next 

Next 

۴ it»٤بامكانك‏ انهاء الحلقة في اي وقت تريد باستخدام العبارة : 
Dim iCounter As Integer‏ 

For iCounter =0 To 100 

vbYesNo = (vbYes Then , "هل تريد انهاء الحلقة؟"(‎ MsgBox 
Exit For 

End If 


Next 


أ عداد المبر مج:مشتاق طالب رشبد العامرى ٦ ٤‏ 


mushtaq_talib58@yahoo.com## #Mushtaq Talib Rashed 2009: جميع الحقوق محفوظة للموٌلف‎ 


ectionsااC0فهي‏ تطبق على أسنادات المجموعات : ۴۵۸ ۴۵0۲ اما حلقة 
Dim ctrl As Control‏ 

'محاذاة جميع الادوات الى اليسار 

For Each ctrl In Controls 

ctrl. Left =0 

Next 

خarian/او‏ حتى المصفوفات شريطة ان يكون متغير الحلقة من النوع : 
Dim X)100 (As Integer‏ 

Dim Y As Variant 

آود لاسناد قيم للمصفوفة 


طباعة محتوياتها 

For Each Y In X 

Print Y 

Next 
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. لانك لا Ne×†‏ ... ۴۲ فهي اآثر مرونة من الحلقة ص100 ... 00 اما بالنسبة للحلقة 
انا ہلاو : عاWhi‏ تحدد عدد معين من التكرار وانما جملة شرطية باستخدام 
While MsgBox‏ 0 "هل تريد انlqء‏ llحلقة؟"(‏ , vbYesNo = (vbYes‏ 


Loop 
vbYesNo = (vbNo , 0"هل تريد انهاء ائلحلقة؟"(‎ Untiا‎ MsgBox 


Loop 

في حال ٥۷ا۲۲‏ ستتم عملية تنفيذ الحلقة مادامت الجملة الشريط صحيحة 

في حال استخدام الكلمة المحجوزة عكاج۴ أو عاإW‏ استخدام الكلمة المحجوزة 

. واذا اردت تنفيذ الحلقة التكرارية مرة واحد على الاقل. ضع حمل الشرط في |أ† للا 
اسفل الحلقة: 

Do 


vbYesNo = ( vbNo , تريد انهاء الحلقة؟"(‎ له"ا0opم‎ While MsgBox 
Do 


vbYesNo = (vbYes , "هل تريد انهاء الحلقة؟"(‎ 0p nti MsgBox 

ectاeك5او‏ » ۴آ بامكانك وضع جملة الشرط في داخل الحلقة ايضا باستخدام عبارة 
0 it×٤لكن‏ لا تنسى انهاء الحلقة بالعبارة : 

Do 

vbYesNo = (vbYes Then , "هل تريد انهاء الحلقة؟"(‎ MsgBox 

Exit Do 

End If 


Loop 
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L00p‏ ... 00ر : ۴r ... Next‏ التحویل بین 

والعكس صحيح» لكن م100 ... 0٥‏ الى حلقة ا×ع. ... ۴٥۲‏ تستطيع تحويل حلقة 
تمتل عدد ا×ع" ... ۴٥۲‏ عليك الانتباه الى ان القيم التي تحددها في بداية الحلقة 
التكرار حتى وان تغيرت. فبالرغم من ان الحلقتين التاليتين متشابهتين: 

A5 

For iCounter =1 To A 


Next 
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iCounter =1 
Do 


iCounter =iCounter +1 

Loop Until iCounter > A 

۴۳۲ .... فالحلقة ۸ الا ان الاختلاف سيظهر في حال ما اذا تم تغيير قيمة المتغير 
في داخل ۸ مرات حتیى وان تغيرت فيمة المتغیر 5 سیتم تنفیذه دائما Ne×†‏ 

٥‏ ...الحلقة» بينما تغيير القيمة يؤثر بشكل آبير على عدد مرات تكرار الحلقة 
.Loop‏ 

تحسين الكفاءة 

يطلق على اساليب ۳١23|0١‏ آم0 بصفة عامة» فان المصطلح تحسين الكفاءة 
برمجية تتبع لزيادة سشرعة تنفيذ الكود او التقليل من استهلاك مصادر النظام 
وغيرها. اما في موضوع هذه الفقرة فسنناقش تlaiaت System ResSOUrCeS‏ 

من خلال ءأكة8 اهاءأ۷ لتحسين الكفاءة والخاصة لعملية الترجمة والتي يوفرها 
ctعزدrاP‏ الموجودة فقي صضندوق حوار خصائص المشروع عاأم"0K0۳‏ خانة التبويب 
.Properties‏ 

P-Code Native Code 

بتنفيذ ٤أكئة8‏ ا2 اءأ۷ - سيقوم مفسر ۴5 عغندما تقوم بتنفيذ البرنامج -بالضغط على 
بتحويل شيفرة ٤أكة8‏ اةuاءا۷‏ سطر تلو الاخر. قبل عملية تنفيذ السطر» يقوم 
حتى يفهمها المفسر وينفذ السطر . اما ۴-٣0١٥‏ السطر الى شيفرة من نوع 
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Native Code فهي تحويل الشيفرة المصدرية الى لغة الإالة‎ Machine Language 
هي حجمها مله٣-۴ يفهما الجهاز مباشرة . الميزة في الملفات التنفيذية من نوع‎ 
. نسبيا آذلك توافقيتها المطلقة مع اآواد التنفيذ داخل بيئة‎ ريغصلاVisuaا‎ Basic 
المزید ايضاء اآواد‎ ۴-٥0٥۴ تكون عرضة لاحداث انهيار البرنامج بنسبة اقل بکتیر من‎ 
اآواد‎ Native €0€ من ناخیة اخریء اآواد‎ . ۴-٤٥٥ ابطاً من اآواد‎ Native Code 
لانها لیست اآواد‎ Machi "€ ا2٣91‎ 29€ حقيقية بل هي لغة مفسر‎ ۷isuaا‎ Basi 

> فسيوفر لك °0٥‏ عة فقط. في حالة اختيارك لترجمة الى اآواد من نوع 
الموجودة في عاأم0۳) خيارات اضافية تجدها في خانة التبويب ٤أك2ة8‏ اهuء۷i‏ 
Properties‏ ectزP0صندوق‏ الحوار : 

:Optimize for Fast Code 

سيحاول المترجم في هذا الاختيار بتنظيم تعليمات لغة الالة بحيث تعطي اقصى 
٤×٤‏ نتائج لسرعة تنفيذ الاآواد بغض النظر عن حجم الملف التنفيذي . 

:Optimize for Small Code 

سيحاول المترجم في هذا الاختيار بتقليص حجم الملف التنفيذ اقصى ما يستطيع 
بغض النظر عن سرعة تنفيذ الاآواد فيه. 

ملاحظة: توجد علاقة عكسية بين الخيارين السابقين» فغالبا ما يتسبب 

تقليص حجم الشيفرة في تخفيض سرعة البرنامج» وفي الاتجاة 

الاخر» غالبا ما يتسبب تحسين سرعة تنفيذ البرنامج إلى زيادة 

حجم الملف. 

:No Optimization 

للملف ١٥0ااجİ"|اام0‏ لن يقوم المترجم باي محاولات لعمليات تح سين الكفاءة 
التنفيذي. 

:Favor Pentium Pro 

فهذا الاختیار سیزید من ۴۲١‏ ١1ا٣۴‏ اذا أن البرنامج سيعمل على معالج من نوع 
سرعة تنفيذ التعليمات وخصوصا بغدادية منها. 
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:Create Symbolic Debug Info 

سيضيف هذا الاختيار تعليمات اضافية الى الملف التنفيذي لاعطاءه امكانية التنقيح 

باستخدام برامج تنقيح الملفات التنفيذية آبرنامج التنقيح الذي توفره بيئة إuاع50‏ 

Microsoft Visual C .رlıتخlێل|‎ Ii نصيحة لك الغ‎ . 

تادادعl‎ Advanced Optimization 

من تخصيص بعض خيارات تحسين الكفاءة المتقدمة والتي ٤‏ أكة8 اةuاءأ۷ا‏ يمكنك 

: في صندوق حوار‎ اهدجتAdvanced‎ Optimization 

:Assume No Aliasing 

هذا الاختيار سيزيد من سرعة تنفيذ البرنامج لكن من الضروري جدا عدم تطبيق 

بشكل مبسط - هي عملية استعارة اسم لمتغير عام_-مبدأً الاستعارة . والاستعارة 

ByRefوارسالە‏ الى اجراء بالمرحع : 

Dim X 

Sub MySub )Y As Integer( 

Y =4 

End Sub 

Sub AliasingSub() 

أعملية الاستعارة 

MySub X 

End Sub 

:Remove Array Bound Checks 

مما يزيد من سرعة التعامل ×عل"1 ۸۲۲۵۷ عدم التحقق من رقم فهرس المصفوفة 

مع المصفوفات. 

:Remove Integer Overflow Checks 

عدم التحقق من الق يمة المرسلة الى المتغيرات الصخيخة فيما لو أتت اآبر من 

المجال لم لا. 

:Remove Floating Point Error Checks 

. الاختيار السابق. لكنه خاص للاعداد من نوع الفاصلة العاثئمة‎ لتم۴ادating‎ Point 
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:Allow Unrounded Floating Point Operations 

للحصول على دقة اآبر لاعداد الفواصل العائمة. 

:Remove Safe Pentium™ FDIV Checks 

سيزيد من سرعة عملية القسمة لكنه قد يؤدي الى نتائج خاطئة لمعالجات 

۴۷والتي تعاني من مشکلة . ۳ں Pe‏ 

یطلق على اسالیب وخوارزمیات ٣2310۸‏ ام0 اعيد واآرر». مصطلح تحسين الكفاءة 

برمجية تتبع لزيادة سرعة تنفيذ الكود او التقليل من استهلاك مصادر النظام 

وغيرها. اما في هذه الفقرة فخصصت اساليب lتحjuıw System ResOUrCe€S‏ 

من خلال خانة التبويب ع٤أكة8‏ اهuءأ۷‏ الكفاءة والخاصة بعملية الترجمة والتي يوفرها 
. تذآر sعProper)i‏ ectزPro‏ الموجودة في صندوق الحوار خصائص المشروع عا¡م °0۳ 

في احسن الاحوال - نتائج غير متوقعة-ان هذه الاختيار ات قد تسبب مشاآل او 

فاحرص علی تغییرها بشکل دقیق. ولا تقول ان تراي ما نبهني! 
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الفصل الرابع 


04 + 
8BA/ر 86B‏ N۷مكتبات‏ 
۷8۸A‏ و ۷8 مئات الاجراءات والكائثنات المضمنة في مكتبات ›أكة6 اقuءأ۷‏ يوفر لك 
والتي لا غنى عنها في برامجك الجدية» صحيح انك تستطيع محاآاة معظم هذه 
الدوال بكتابة اآواد لانجازهاء الا ان استخدام الاجراءت والدوال المشمولة في 
يعتبر افضل بكتثير من انجازها بنفسك من منظور تحسين ء62 اةاءأ۷ا مكتبات 
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> فهذه الدوال صممها مبرمجون محترفون بلغات اخری مما 210۸" ام0 الكفاءة 
. ياخذك هذا الفصل ءأكة6 اaاءأ۷‏ يجعل تنفيذها اسرع بكثير من اآوادك المكتوبة ب 
في جولة مع العشرات من هذه الدوال والاجراءت والتي ساتطرق اليها باختصار 

رك حتى تبحر في 150۸١‏ باختصار. اما اذا اردت شرحا وافيا لها فمكتبة 


مع الاعداد 


والدوال الخاصة بالاعداد ك۲مأجامم0 عشرات المعاملات ›أكة8 اقuاءأ۷‏ يوفر لك 

.... الخ بالاضافة الى دوال رياضية آدوال ع†8y»‏ e۲وع1nt.‏ و"0ا باختلاف انواعها 
المتلتات او الدوال الاسية. 

المعاملات بغدادية 

المعاملات الاربع الرئيسية + -» * و /» وفي حالة تطبيق ها ة8 اةuءأ۷‏ يوفر لك 
-على انواع مختلفة من القيم. فان القيم الابسط ستتحول مؤقتا الى الاعقد 

> بالنسبة لمعامل القسمة / فھو یقوم عاDoub Single ”ll‏ و Integer yllڑ Long‏ 

. لذلك عاام0 بتحويل جخميع القيم المتمتلة في الحدين الايمن والايسر الى النوع 
عBytء teg‏ م ع المتغيرات الصحيحة )| ينصح باستخدام معامل القسمة الصحيحة 
اربع مرات من المعامل /: 10۸9 و 

Dim X As Long, Y As Long, Z As Long 

Z =X /Y 

=X)‏ 2 هذا اسرع 

. وقي احيان آثيرة عااuاه0‏ فهو يحول جميع القيم الى النوع ^ آذلك معامل الاس 
لن تحتاج الا للمتغفيرات الصحيحةء لذلك ين صح باستخدام معامل الضرب عوضا عن 
الاس: 

Dim X As Long, Y As Long, 

Y =X^3 

۷Y =X *X *X 

مما لا يعطي دقة |٠١9‏ فيقوم بتحويل القيم الى 105 اما معامل باقي القسمة 
> تستطيع تطوير عاو"اS‏ و عااuام0‏ في التعامل مع انواع الفاصلة العائمة الاخرى آ 
n9ادالة‏ اخرى تعود بباقي القسمة للاعداد غير : 

Function ModEx )dN As Double, dD As Double (As Double 

ModEx =dN ¬ Int)dN /dD * (dD 

End Function 

ست معاملات منطقية هي =. ءأكة8 اةناءأ۷ بالنسبة للمعاملات المنطقية؛ فيوفر 
. بالنسبة لمعامل المساواة = فهو ليس آمعامل اسناد<> و > => .< =< 
Basi‏ امuءVi‏ القيم الى المتغيرات» فمعامل المساواة = هو المعامل الذي يطبقه 
في داخل الجمل الشرطية او حتى اذا سبقه معامل اسناد آخر. فالكود التالي: 
Dim X As Integer, Y As Integer‏ 

X =¥ =10 

يبين لنا ان المعامل = الثاني الموجود في السطر الثاني هو معام ل مقارنة 
المساواة وليس اسناد القيم. 

ملاحظة: تفرق معظم لغات البرمجة الاخرى بين معامل المساواة ومعامل 

معامل المساواة هو == ومعامل € اسناد القيم» فنجد في لغة ال 


فهي مدعومة ايضا لربط الجمل المنطقية N.01‏ و 2١ء‏ 0۴× اما معاملات الربط 
التي تمتل قيمة العدد كا8 ويمكنك استخدامها للاعداد حيث تؤتر على البتات 
8in۷بالنظام‏ الثنائي . 

اسبقية المعاملات: 
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من المفيد ان اذآر هنا ان من الاخطاء الشائعة التي يقع فيها اغلب المبرمجين ه٠‏ و 
تتم ۸١۵١‏ . فمقارنة المعامل 0۲ اعلى من المعامل ۸١١‏ نسيان ان اسبقية المعامل 
هو السابق اي في الجهة 0۲ حتى ولو ان المعامل 0۲ قبل مقارنة المعامل 
»ءففي هذا المتال: A۸١۵‏ اليسرى قبل المعامل 
Print True Or False And False‏ 
بينما النتيجة الحقيقية هي عءعءاة۴ للوهلة الاولى بعتقد المبرمج ان النتيجة هي 
يتم اختبار ه قبل المعامل الشرطي . ۸١١‏ وذلك. لان المعامل الشرطي ع۲u!‏ 
ولتجنب ذلك. استخدم الاقواس: 
Print )True Or False (And False‏ 
اي يتم تنفيذه ۸١۵١‏ اعلى من اسبقية المعامل اه المزيد ايضا» اسبقية المعامل 
فالعبارة : ۸٣۵‏ داثما قبل معامل 
Print Not True And False‏ 
۴ale And‏ الاولی فقط حتی تکون ۴٥ا۲۲‏ على آلمة اه لااستقوم بتنفيذ المعامل 
عكا۴2وآما هو واضح فنتيجة التعبير هي . ۸١١‏ وبعد ذلك يأتي دور المعامل عكاج۴ 
ومن تم عكس النتيجة فتستطيع ان تستخدم ۸١١‏ اما اذا اردت تنفيذ المعامل 
الاقواس والتي لها الأسبقية الأولى على جميع المعاملات مثل: 
Print Not )True And False(‏ 
u٥‏ وفي هذه الحالة» سيكون الناتج النهائي هو . 
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الدوال بغدادية 
ودالة ك۸ دالة القيمة المطلقة اج8 اaاء۷‏ من الدوال بغدادية التي يوفرها لك 
اذا ان 1 فهِي تعود بالقيم 59١‏ » اما الدالة ط×٤‏ والدالة الاسية 5٩۲‏ الجذر التربيعي 
اذا أن العدد المرسل لها سالب» وصفر اذا 1العدد المرسل لها موجب. والقيمة - 
ان العدد المرسل صفر. 
فهي تعود باللوغارتم الطبيعي للعدد. اما للاعداد 1٠9‏ بالنسبة لدالة اللوغارتم 
الاخرى» فتستطيع تطوير هذه الدالة: 
Function LogEx )JdN As Double, dBase As Double (As Double‏ 
LogEx = Log )dN / (Log )dBase (‏ 
End Function‏ 
ايضا» حيث يمكن ان تعود 5٩۲‏ الكود السابق يذارني بتطوير دالة الجذر التربيعي 
بالجذر النوني للعدد: 
Function NthSqr )JiNum As Integer, iRoot As Integer (As Double‏ 
NthSqr =iNum ^ )1 /iRoot(‏ 
End Function‏ 
' متال الحصول على الجذر التكعيبي 
8 لعدد 
Print NthSqr )8‏ , 3( ' 2 تعود بالعدد 
التي تعود بالقيمة المناسبة استنادا A١‏ و ١أ؟Sء‏ كه€. ٠۵۸‏ اخيرا الدوال المتلتثية 
الزاوية المرسلة لها بالراديان.ء اما بالنسبة للدوال المثلثية الاخرى »> 

€)05€٤٣ الخ فيمكنك اشتقاقها بتطبيقات معادلاته | المعروفة» هذه واحدة من‎ .. 
عندي» والبقية عليك:‎ 
Function Sec )X As Double (As Double 
Sec)X = (1 /Cos)X( 
End Function 
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تنسیق الاعداد 

التي توفر لك خيارات لا نهائية لتنسيق ۴١١۳٣۵‏ من اقوى دوال التنسيق هي دالة 
الاعداد. الحروق. الوقت والتاريخ ايضاء ساسرد لك في هد ذه الفقرة طرق تنسيق 
الاعداد فقط. 
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تتطلب العبارة -او القيمة- و طريقة التنسيق: ۴١٥۲۳١۵‏ الصيغة المبسطة للدالة 
rma‏ ۴القيمة ) , ( طريقة التنسيق 

يوجد نوعان من طرق التنسيق . النوع الاول هو التنسيقات القياسية والثاني هو 
التنسيقات الخاصة . التنسيقات القياسية عبارة ع ن قيم نحدد نوع تنسيق الارقام آ 
لتنسيق الرقم على C1۲8۸ ٤٥¥‏ لتنسيق llرق۾م General Number gl ple J‏ 

۸۷شكل عملة وغیرها من القيم التي تحدها في مكتبة : 

` 07 

Print Format)1234567, "General Number(" 

`ر.س. 1,234,567.00 

Print Format) 1234567, "Currency”( 

' 1,1,7 

Print Format)1234567, "Standard”( 

اما التنسيقات الخاصة فهِي تنسيقات تحددها بنفسك . والتي تستخدم علامات آ 
....M5۷‏ الخ» تجدها ايضا في مكتبة : 0 › %# 

' 1, 7 

Print Format)1234.567, "1#, ##.00(" 

' 23.4% 

Print Format)0.234, "#.#("% 

' 020.0 

Print Format)20, "00#.00(" 

دوال اخری 

> الاولى تحذف الفاصلة وتحول العدد الى ×أ۴ و ا٣1‏ من دوال حذف الفواصل الدالتين 
عدد صحيح اقل من او يساوي العدد المرسل بينما التانية تحذف الفاصلة فقط: 
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Print Int)1.2 (' 1 

Print Int-)1.2 (" -2 

Print Fix)1.2 (' 1 

Print Fix-)1.2 (' -1 

التي تمكنك من تحديد عدد ۷86 فقد ظهرت في الاصدار ۸0۷٣١‏ اما دالة التقريب 
الارقام العشرية: 

Print Round)2.12567, 2 (' 2.13 

فان الدالتين اةأء0 والتثمانية ات٣‏ iأعمكة×ع١۳‏ وعند الحديتث عن الاعداد الستعشرية 
تحول اعداد النظام العشري الى الانظمة السابقة: أ0 و ×ع1 

Print Hex$)100 (' 64 

Print Oct$)100 (" 144 

بنفسك: 81١‏ فعليك بكتابة الدالة إاة١81‏ وللتحويل الى النظام الثنائي 

Public Function Bin)iNum As Integer (As String 

Dim iCounter As Integer 

Do 

If JiNum And 2 ^ iCounter = (2 ^ iCounter Then 

Bin " =1 "& Bin 

Else 

Bin " =0 "& Bin 

End If 

iCounter =iCounter +1 

Loop Until 2 ^ iCounter > iNum 

End Function 

واآبر من او تساوي صفر. 1 فهِي تعود بقيمة عشوائية اصغر من ۸١١‏ اما الدالة 
تستطيع تخصيص مجال معين من الاعداد باستخدام هذه المعادلة: 

+ 1(اصغر قيمة‎ * )۸١۸۵ اعلى قيمة)) -+ اصغر قيمة‎ t 
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| أك امل :4 7 قلا هول على اعداد ع وابة فى المجال أ 

Print Int)7 *Rnd - +2( 

لك الم ا ا ا 0 ل 3ا ال ااال لا د 
وnاC‏ و erوnte‏ للاعداد خ1 التحويل التي تمكنك من تحد يد نوع القيمة آ 

.... الخ. eا0ubط‏ للاعداد وہماء اC0b‏ للاعداد 


التعامل مع الحروف 

عشرات الدوال المختصة ۷8۸ و ۷8 من منا لا يستخدم الحروق؟ توفر لك مكتبات 

. اعرض عليك في هذه الفكرة كو١آ۲ا؟‏ في التعامل مع المتغيرات والتثوابت الحرفية 

۴nd and Replace‏ معظم هذه الدوال بالاضافة الى تطبيق فكرة البحث والاستبدال 
ولكني سأبداً بالمعاملات الحرفية. 

المعاملات الحرفية 

للقيم الحرفية: e۲20۲‌م0 Combine‏ یمتل معامل الدمج & الرمز 

Dim sMyName As String 

sMyName‏ = "تراي” 

” "العامري‎ & sMyName =sMyName 

Print sMyName‏ ` "تراي العامر ي" 

اما معامل الجمع "+" فأنا لا احبذ استخدامه آثيراء فاذا أن نوع القيم حرفية 

"»واذا أتت احدى القيم عددية والثانية حرفية قابلة8فسيتحول الى معامل الجمع " 

للتحويل الى عددية فسيكون معامل جمع» اما اذا أتت احدى القيم عددية 

لہا E Mismatch‏ والاخرى حرفية لايمكن تحويلها الى عددية» فان رسالة الخطأً 
نصيب من الد 

Print “20” + "30”` “20307 

Print “20” + 30 ` 50 


Print "X7 + 0‏ 'رسالة خطأً 
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.. الخ فيمكن تطبيقها على القيم< > .< بالنسبة للمعاملات المنطقية 

ا1 ASCIL‏ الحرفية ايضاء حيت تكون قيمة الحروفق هي المقابل لها في جدول 
:UNICODE‏ 
Print "Turki "> "TURKI " True‏ 
Print "Turki "< "TURKI " False‏ 
Print "Turki" = "TURKI "" False‏ 
Print"|حxp"‏ < "îرÎي"‏ ` False‏ 
Print"احمد"‏ > "ترآي" ` True‏ 
False ` "xol" = "Îî" Print‏ 
يتجاهل مقارنة شكل الحروف ع أكة8 اعuاءا۷‏ ملاحظة: تستطيع ان تجعل 
الكبيرة والصغيرة عند استخدام معامل المساواة شريطة كتابة 
في منطقة الاعلانات Compa € ٤×‏ onا0pt‏ الكلمة المحجوزة 
العامة لكل وحدة برمجية. 
احيانا تود تجاهل الدقة التي يفرضها عليك معامل المساواة وتستخدم معامل 
اي رقم # الذي يتيح لك استعمال الحروقف التعويضية» فيمثل الرمز ٤‏ )أا التشابه 
والرمز ؟ اي حرف والرمز * أي عدد معين من الحروق والارقام: 
Dim sMyString As String‏ 

sMyString = 
A1234” " gl ” If sMyString Like “A?2???” Then ... ` “Abcde 
Aabce1234” " gl ” If sMyString Like “A*” Then ...' "Ab 
A1234” " gl ” If sMyString Like “A####” Then ... ` "A0000 
:] او بامكانك تحديد حروق معينة او مجال معین باستخدام الاقواس [ و‎ 
Dim sMyString As String 


XH 


NF 
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sMyString =... 

B1234” " gl ” If sMyString Like “]JAB[###” Then ...` “A1234 
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BY” *" gl ” If sMyString Like “]AB][XY[” Then ... ' “AX 

D3” " gl ” If sMyString Like "]A-D[#” Then ... ` “C9 

وحتى يمكنك استثناء حروق معينة او مجال معين باستخدام الرمز !: 

Dim sMyString As String 

sMyString =... 

Z1234” " gl ” If sMyString Like "!]0-9[###” Then ...' “A1234 

البحث والاستبدال 

تستطيع البحث عن آلمة او حروف معينة داخل قيمة حرفية عن طريق الدالة 
التي تعود بموقع ذلك الحرف او بداية الكلمة: 

Dim IPosition As Long 

Dim IStartPoint As Long 

IStartPoint =1 

"يîرت"),‎ Position =InStr )JIStartPoint, Text1.Text 

If IPosition > O Then 

Text1.SelStart =lIPosition -1 

Text1.SelLength =4 

End If 

فهي شبيهه بالدالة السابقة ولكن عملية البحث تكون 1۸5۲۸٥۷‏ اما الدالة 
معاآسة -آي تبداً من تهاية القيمة المرسلة. 

التي تمكنك ع٤‏ هام۸ بالنسبة لعملية استبدال النصوص. فلن تجد اسرع من الدالة 
من استبدال حروف م عينة بجروفق اخرى . هنا سنستبدل جميع آلمات "محمد" الى 
"محمد صلى الله عليه وسلم" الموجودة في آأداة النض: ٠‏ 

=Replace)Text1. Text‏ ext1.rextا‏ ,"محمد" ,("محمد صلی الله عليه وسلم" 
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تنسيق الحروف 

ايضا لتنسیق الحروف. ولکن لا توجد بها تنسیقات ۴۵۲۳٣۵٤‏ ستستخدم الدالة 

الذي يمتثل حرف او © قياسية للحروف. اما التنسيقات الخاصة فهِي تستخدم الرمز 
الذي يمثتل حرف او لا شئ: & مسافة والرمز 

Print Format")ABCD", "@ @ @ @ ("“"AB CD” 

Print Format")ABCD", "@ &8&& ("" “A BCD” 

Print Format")9661234567", "&8&8-&-QQOQQQAQ (" "966-1-234567” 

دوال اخری 

> الحروق اليمنى اعا $ من الدوال الحرفية الاخرى دوال استخلاص الحروق اليسرى 
ا : $ و الحروق الوسطى $غRigh‏ 

Dim sMyString As String 

sMyString ="*ABCDEFGHIJKLMNOPQRSTUVWXYZ” 

Print Left$ )sMyString, 5 ( ABCDE 

Print Right$ )sMyString, 5 ( VWXYZ 

Print Mid$ )sMyString, 20, 5 ( TUVWX 

Print Mid$ )sMyString, 20 ( TUVWXYZ 

Left‏ و tاوأR‏ وعند الحديث عن حروق لغتنا الجميلة». ف من المعروف أن الدالتين 
للجملة "مرحب ا" خ٣أواR‏ $ تعطيان نتائج عكسية مع الحروق العربية . فالاستدعاء 
ا من الالف فالباء فالحاء الخ .. مما يسبب التشويش على المبرمج العربي . 
الفكرة بكل بساطة لجعل ها تين الدالت ين تعملان بشكل صحيح مع الحروف العربيةء 
ArLeftو‏ : ArRight‏ هي عن طریق تطویر دالتین عربیتیين 

Function ArLeft)sString As String, Length As Long (As String 
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ArLeft =Right$)sString, ILength( 
End Function 
Function ArRight)sString As String, Length As Long (As String 
ArRight =Left$)sString, ILength( 
End Function 
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Private Sub Form_Click() 
مثال للاستدعاء‎ ' 
$"ترآي العامري"), 4( ' ترآي‎ Print ArRight 
$"ترآي العامري"), 7( ' العامري‎ Print Aref 
End Sub 
اعود للدالة‎ $ M١ مرة اخرى» فعليك معرفة ان‎ $ M1١ هي عبارة‎ Stat emen ايضاء‎ 
فيمكنك كتابة شيئا متل:‎ 
Dim sMyString As String 
sMyString " =abcde" 
Mid$)sMyString, 2, 3" = (BCD" 
Print sMyString ` “aBCDe” 
وبدلا من معرفة ما اذا أن المتغير الح رفي خاليا باستخدام علامات التنصيص»‎ 
التي تعود بعدد حروق القيمة المرسلة فهي اسرع مرتین من 16۸ استخدم الدالة‎ 
الطريقة الاولى:‎ 
If sMyString ="” Then ... 
'ھذە اسرع‎ ... 1f Len )sMyString = )0 Then 
اما لحذف المسافات اليمنى استخدم الدالة‎ $ ۸1۲١۳ المسافات اليسرى‎ . $ L١٣٣ 
والمسافات اليمنى واليسرى‎ $ : ١Q 
sMyString =" 12345 ” 
Print RTrim$ )sMyString (C " 12345” 
Print LTrim$ )sMyString ( "12345 ” 
Print Trim$ )sMyString ( "123457 
فهي للترميز W۷ءكA . اما ۸5€11 تعود بالعدد المقابل للحرف في جدوك ء5 الدالة‎ 
UNICODE JlaدJllg‎ . $ Chr و‎ $ CHW أي العكس:-تعود بالحرق المقابل للعدد‎ 
202 ` )"ت"(‎ Print Asc 
1578 ` i") Print AscW 
'ت‎ ) Print Chr$)202 
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ğ' ) Print ChrW$)1578 
و 258٤لا $ من الدوال الاخرى دالتي‎ $ 1٤٣258 اللتان تقومان بتكبير الحروق الانجليزية‎ 
وتصغيرها. استخدام هاتان الدالتان مس الة ضرورية خاصة عند مقارنة القيم‎ 
لا تساوي “ kiاu ا ”الحرفیة» فلا تنسی ان‎ ”: "RK 
'قد لا یکتب المستخدم حروق آبیرة‎ ... 1۴ rex»t1. rext =“ URKI” Then 
If UCase$ )Text1.Text = ("TURKI” Then ... 
If LCase$ )Text1.Text = ("turki” Then .. 
تقوم بتصغير جميع ع1 $ تقوم بتكبير حميع الحروف والدالة ٥2٣ل $ الدالة‎ 
الحروف آما رأينا في المتال السابق. اما اذا آنت تريد تكبير الحرق الاول من آل‎ 
الدالة : seئProperCaط۷ آلمة. فارسل الثابت‎ ىلاstr‎ conv 
sMyString " =I like Visual Basic" 
Print StrConv)sMyString, vbProperCase (' "I Like Visual Basic” 
Print StrConv)sMyString, vbLowerCase ( ™i like visual basic” 
Print StrConv)sMyString, vbUpperCase ( “I LIKE VISUAL BASIC” 
تمكنك الدالة‎ 5۲۳0١۷ ايضا من تحويل النصوص من‎ ۸5€C11 الى‎ UN] 0۴ بارسال‎ 
او من عnicode ظ۷ التابت‎ UNICO D€۴٤ الى‎ ASC11 . التابت‎ لاسرابvb۴rmU€لnicodeع‎ 
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ملاحظة: بعض الدوال الحرفية تتوفر منها نسختينء الاولى تعود بقيمة من 

. حاول داثما ai٣‏ والتانية تعود بقيمة من النوع 5۲١9‏ النوع 

اذا توفرت - عن طريق اضافة-استخدام النسخة الاولى من الدالة 

بعد اسم الدالة لترفع عبء تحويل نوع القي مة الذي يقوم به $ الرمز 

مما يؤدي الى زيادة سرعة التنفيذ.٤أكة8‏ اهuء۷i‏ 

تمكنك من فصل جميع الكلمات ونسخ آل آلمة الى مصفوفة. افتراضيا ام5 الدالة 
الفاصل بين الكلمات هي المسافة آما يمكنك تحديد فاصل معين: 

Dim X ()As String 

Dim iCounter As Integer 

X =Split)Text1. Text( 
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'تحديد فاصل غير المسافة 

'X =Split)Text1.Text, ("*" 

For iCounter =0 To UBound)X( 

Print X)JiCounter( 

Next 

تعيد الوضع آما آن سشابقا: 01۸[ واذا ندمت على تقسيم الكلمات. فالدالة 

sFromArray ToString =Join )X( 

s۴r mA rra tring =Join )X‏ ` , "** ('تحدید فاصل غير المسافة 

> والفرق بينهما هو ان الاولى CSF‏ و Str‏ $ اخيرا» دالتي تحويل القيم الى حرفية 
تضيف مسافة يسار العدد المرسل لها ان ان موجب ام التانية فلا. 

التعامل مع الوقت والتاريخ 

على قيم الوقت والتاريخ في امكانية تصريح متغير من 835٤‏ اaةاءأ۷‏ لا قتصر دعم 
> بل يحتوي على عشرات الدوال الخاصة بعرض» تعديل» خساب عأة0 النوع 
وتنسيق قيم الوقت والتاريخ. 

دوال الوقت والتاريخ 

هي قيم تمتثل وقت معين او تاريخ معين او آلاهما معا سواء 036 القيم من النوع 
:# و # او تابت بين العلامتين ع02 اتت في متغير من النوع 

Dim MyDate As Date 

MyDate =#1/20/2001# 

Print MyDate 

MyDate =#2:30:00 AM# 

Print MyDate 

MyDate =#1/20/2001 2:30:00 AM# 

Print MyDate 
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وقبل ان ابدا في الحديتث عن دوال الوقت والتاريخ» اود ان اعرفك على الخاصية 
والتي تمكنك من تغيير نظام الت اريخ التابع لبرنامجك ۷/86۸ التابعة للكائن 2۲ لاج٣‏ 
الى ميلادي او هجري: 

Dim MyDate As Date 

MyDate =#1/20/2001 2:30:00 AM# 

VBA.Calendar =vbCalHijri‏ ' هجري 

Print MyDate 

/BA.Calendar =vbCalGreg‏ ' میلادي 

Print MyDate 

مع العلم ان القيمة التي تضعها في هذه الخاصية تؤتر على نوع القيمة التي تعود 
بها دوال التاريخ الاخرى ولكنها لا تؤثر في قيم الوقت والتاريخ: 

Dim MyDate As Date 

VBA.Calendar =vbCalHijri 
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/MyDate =#1‏ 16/ 1421 # 'القيمة هنا بالتاريخ الميلادي وليس الهجري 
Print MyDate‏ 'مخرجات الامر هنا بالهجري 

اللتان تعودان ع٠٣١١‏ و عاة0 والان اعرض لك دوال الوقت والت اريخ مبتدئا بالدالتين 
بتاريخ اليوم والوقت الحالي: 

Print Date 

Print Time 

. فهي ستغیر قيمة الوقت ۴٣٤٣٤‏ اھt؟‏ آعبارات ۲٣٤‏ و 0te‏ اما اذا تعاملت مع 
والتاريخ في النظام: 

Date =#1/20/2001# 

Time =#12:00:00 AM# 

تعود بقيمة تشمل تاريخ اليوم والوقت الحالي: "0W‏ الدالة 

Print Now 
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فهي تعود بعدد الثواني من منتصف الليل حتى وقت استدعائها ١|٣۴۲‏ اما الدالة 
آي هي تعمل آعداد» قد تستفيد منها وتطور اجراء انتظار مؤقت قبل تنفیذ آود 


معين. 

Sub Wait )iSeconds As Integer( 

Dim sStartTime As Single 

sStartTime =Timer 

Do :DoEvents :Loop Until Timer —- sStartTime > =iSeconds 

1 End Sub 

ويتم تصفيره من 00:00:00 عبارة عن عداد يبدأ من الساعة "٥۲‏ |۲ تذآر ان الدالة 
السابق قد يؤدي الى اأجة۷ . فالاجراء 23:59:59 جديد بعد مرور تانية من الساعة 
قبل نهاية الحلقة الموجودة في الاجراء . ۴٣‏ "أا حلقة لا نهائية اذا تم تصفير | لدالة 
صحيح ان نسبة حدوتث المشكلة السابقة ضئيلة» الا ان تجتب الشوائثب امر 
ضروري» واما يقولون "ابعد عن الشوائب وغني لها": 

Sub Wait )iSeconds As Integer( 

Const NUMOFSEC As Single =24 *60 *60! 

Dim sStartTime As Single 

sStartTime =Timer 

Do :DoEvents 

Loop Until JTimer +NUMOFSEC - sStartTime (Mod NUMOFSEC > =iSeconds 
End Sub 

مباشرة اذا آنت ترغب في # و # لن تتمكن من استخدام الثابت بين العلامتين 
يمكنك اهأا5#عاة0 تعيين قيم لمتغيرات باستخدام التاريخ الهجري» ولكن مع الدالة 
۷/BAالتابعة‏ للكائن : 02۲١۸عاة٤‏ عمل ذلك فهي تتاتر بقيمة الخاصية 

Dim MyDate As Date 

VBA.Calendar =vbCalHijri 

27 شوال‎ 1422 ` ( 27 , 10 , MyDate =DateSerial)1422 

Print MyDate 

VBA.Calendar =vbCalGreg 

Print MyDate ` 2002‏ يناير 11 يوافقق 
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. اما بالنسبة للدالتين اةأام؟ه" ١|‏ آما تتوفر دالة اخرى للوقت هي الدالة 

فهما تعودان بقيمة التاريخ او الوقت الموجود في القيمة meValue‏ 11 و DateValue‏ 
المرسلة اليهما: 

Print DateValue)Now +2( 

Print TimeValue)Now( 

التي تستخرج جزء معين من قيمة الوقت أو ۴2۲ عاة0 بامكانك استخدام الدالة 
فهي Sec0o^d‏ و Minute .Hour .Year .Month .Day‏ التاریخ» ولکني افضل الدوال 
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تعود بقيمة اليوم الشهر.ء السنة.ء الساعة. الدقيقة والتانية الموجودة فقي القيمة 
المرسلة اليهم: 

Print Month )Date( 

Print Hour )# 1:20:00 AM#( 

العمليات بغدادية على الوقت والتاريخ: 

آثيرا م | تحتاج الى اجراء بعض العمليات بغدادية على قيم تاريخية آ الجمع بين 
تاریخین او طرح تاریخین > بالاضافة الى مقارنة التواريخ . بامكانك تطبيق ما قي 
آما ذآرت - تنقسم-" في الفصل الثاني لان القيمة من هذا النوع عاة0 فقرة "النوع 
الى قسمين عدد صحيح وعدد عشري . العدد الصحيح يتعلق بالتاريخ اما العشري 
فهو خاص بالوقت. جرب استخدام معامل الجمع آما في هذا المتال: 

أساعة من الان 12 اضافة يومين و 

Print Now +2 +#12:00# 

و te٩‏ ولتطبيق عمليات رياضية اآثر دقة وسهولة. يفضل استخدام الدالتين 

> الاولى لاضافة تاريخ على تاريخ والثانية لمعرفة الغفارق بينهم |. دlJlةö DateDiff‏ 

لها صيغة عامة هي: كلAعا5a‏ 

ateAdd(الفترة)‏ , العدد, (التاریخ 

ل" يوم " "٣"‏ شهر " ل۷لللالفترة هي الوحدة المستخدم والتي قد تكون سنة " 
....لخء اما العددذ فهو عدد الوحدات من الفترة التي تريد اضافته |ء اما التاريخ فهو 
القيمة الذي تريد اضافة التاريخ عليها: 
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Print DateAdd ")m", 3, Now( 

وصيغتها العامة شبيهه آ5iعاه0‏ اما لمعرفة الفرق بين تاريخين فاستخدم دالة 
بالاولىء الا انها تطلب قيمة التاريخ مكان قيمة العدد: 

/Print DateDiff')d", #12‏ 20/ 2000 ¢#, 2#/ 18/ 2001 # )` 60 يوم 

تنسیق الوقت والتاريخ 

مرة اخرى»ء وبالنسبة أة٣۲۳١٠۴‏ لا اعتقد انني بخاجة الى تعريفك على الدالة 
للتنسيقات القياسية فهي مدعومة لقيم الوقت والتاريخ: 

Dim sMyDate As Date 

sMyDate =Now 

Print Format$)sMyDate, "General Date(" 

Print Format$)sMyDate, "Long Date(" 

Print Format$)sMyDate, "Long Time(" 

Print Format$)sMyDate, "HH:MM -> MMMM DD, YYYY(" 

FormatDate ime‏ دالة اضافية لتنسيق الوقت والتاريخ هي ۷/86 آما اضاق الاصدار 
التي تعود باسم الشهر المقابل للرقم المرسل لمl: Month Name‏ وJlدlلö‏ 
VBA.Calendar =vbCalHijri‏ 

Print MonthName)1‏ ) `محرم 

VBA.Calendar =vbCalGreg 

رڍliı'‎ ) Print MonthName)1 


التعامل مع الملفات والمجلدات 

آک وال او عاران دة للعامل ف الملقا والملنات ۷866م ف الااا 

اةاء۷ فمعظم ما سأسطره في الفقرات التالية توفر منذ الاصدارات القديمة ل 
اا ال غاا ما د ایل اللا ال 8 

ا اا ااال اع اا ال ایال عا 2 

131 

رطرنقة النحت عى الملفال رالملدان ته ام الفقة سلف “فافع بالملدان 

اال الا فا 

التعامل مع الملفات 
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من ۷طه٣٤۴|اأ۴‏ من اعادة تسمية الملف او نقله»ء والامر A١‏ ... 2۳۴ يمكنك الامر 
يحذف الملف: ااأ) نسخ الملف» بينما الامر 

"اعادة تسمية ملف 

Name "“C:\MyFile.EXT” As “C:\MyFile.DAT” 

Name “C:\MyFile.EXT” As “D:\MyFile.EXT” 


سح ملف 

FileCopy “C:\MyFile.EXT” As “D:\MyFile. EXT” 

'نسخ وتغییر اسم ملف 

FileCopy “C:\MyFile.EXT” As “C:\MyFile2.EXT” 

'حذف ملف 

Kill *C:\MyFile.EXT” 

أحذف مجموعة ملفات 

Kill ".*TMP” 

SetAttr‏ والدالة Attributes‏ ا۴ من معرفة خصائثص الملف ١۸ع‏ تمكنك الدالة 
شريطة ان لا يكون مفتوحا:-لتغفيير خصائص الملف 
Dim sFile As String‏ 

sFile ="C:\File. EXT” 

1f Get Attr)sFile (And vbHidden Then‏ ... 'مخفي 

etAttr)sFile (And vbReadOnly Then‏ 1۴ ... 'للقراءة فقط 
1f GetAttr)sFile (And vbArchive Then‏ ... 'ارشیف 


SetAttr sFile, vbHidden‏ 'مخفي 

SetAttr sFile, vbArchive +vbReadOnly‏ 'ارشيف وللقراءة فقط 

SetAttr s۴, etAttr )sFile (Xor VbReadOnly‏ 'عكس خاصية للقراءة فقط 

بوقت وتاريخ ۳٣٥٤‏ ع2 ۴|۴0 بقيمة تمتل خجم الملف» والدالة ١ع‏ اء|اأ۴ تعود الدالة 
انشاء الملف: 
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Print FileLen )sFile ( 

Print FileDateTime )sFile ( 

هي قابليتها على العودة بحجم الملفات ۴١‏ اعاآ۴ الميزة التي تع جبني في الدالة 
حتی وان الت مفتوحة.ء والعيب الذي لا يعجبني في نفس الدالة هو ان القيمة 
التي تعود بها هي حجم الملف قبل الفتح -أي لن تعود بقيمة صحيحة في حال 
قيام البرنامج بتغيير حجم الملف. 

التعامل مع المجلدات 

بقيمة حرفية تمتل الدليل الحالي للقرص الذي ينفذ منه ۲۲ا٤‏ $ تعود الدالة 
البرنامج او محرك اقراص آخر ترسله الى الدالة: 

Print CurDir‏ $ 'الدليل الحالي في القرص الحالي 

: الدليل الحالي قي القرص‎ Pint CurDir$ )"d” ( D 

> الاول Chi‏ و Chive‏ وقد ترغب في تغيير الدليل الحالي باستخدام الامرين 
لتفيير القرص والتاني لتغيير الدليل: 

ChDrive “D:” 

ChDir "D:\MsgFolder” 

فقط دون C۸51۲‏ ملاحظة: ان قمت بتغيير الدليل الحالي باستخدام الامر 

> فستقوم بتغيير الدليل CK۸0۲1۷٥‏ تغيير القرص باستخدام الامر 

الحالي لذلك القرص فقط. اما الدليل الحا لي الذي ستعود به الدالة 

لم يتغıر.‏ $ېCurDir‏ 

اذا آنت لا تعرق ما الفائدة من معرفة الدليل الحالي للقرص. فيبدو ان عصر البرمجة 
لم تشهده اصابعك الرقيقة . بشكل مبسط. الفائدة التي قد 15-005 تحت النظام 
تجنيها من تغيير الدليل الحالي هو عدم الحاجة الى تحديد مسار الملف ات في ذلك 
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الدليل» فهذا الكود: 

ChDrive “C:” 

ChDir “C:\UnwantedFolder” 

Kis 
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وهو-سيحذف جميع الملفات الموجودة في الدليل الحالي للقرص 

> واتمنى من صميم قلبي الحنون ان لا تجعل دليJ‏ lالi¡ظpl C:\UnwantedFo|der‏ 
هو الدليل الحالي وتطبق الكود السابق. كsس0wكہWi‏ 

البحث عن الملفات والمجلدات 

من البحت عن الملفات والمجلدات. طريقة استخدامها يتم 0i۲‏ تمكنك الدالة 
بخطوتين: الاولى تحديد الملف /الملفات/المجلد وخصائصهاء والتثانية باستدعاء الدالة 
دون ارسال أي قيمة لهاء الكود التالي يبحت عن جميع الملفات التنفيذية الموجودة 
:]|WiNnN 1‏ فى المجلد : 

Dim sFileName As String 

الخطوة الاولى 

sFileName =Dir$ )3C:\Winnt\. *EXE”( 

'الخطوة التثانية 

Do While Len )sFileName( 

List1.AddItem sFileName 

sFileName =Dir$ 

Loop 

تحرير الملفات 

بالاضافة اوامر ودوال الاستعلام عن الملفات والمجلدات السابقة» توق ر لك مكتبات 
اوامر ودوال اخرى تمكنك من تحرير الملفات لحفظ بيانات برامجك فیها ۷8۸ و ۷8 
بالتنسيق والهيئة التي تريده |. قبل اجراء آي عمليات تحرير على الملفء لابد من 
التي ضيغتها: 08١‏ فتحه باستخدام العبارة 

pen‏ اسم الملف ۴٥۲‏ نوع الوصول )| الاقفال A۸5‏ #رقم الملف 

بالنسبة لرقم الملف» فهو رقم يمتل الملف بحيث يمكنك الوصول اليه من آافة انحاء 
البرنامج» ولا يمكن لهذا الرقم ان يشمل اآثر من ملف واخد. لذلك حتی تتفادی 
التي تعود برقم غير محجوز لفتح ٤١‏ اأ۴عع۴۲ اخطاء التعارض» يفضل استخدام الدالة 
الملف. وبالنسبة للاقفال. فهي تم كنك من تحديد خاصية الاقفال على الملف بحيتث 
. الكتابة الى ١2ع۸R‏ )عما يمكنك منع آافة البرامج الاخرى من القراءة من الملف 
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. اما نوع kc) Read Write‏ او القراءة والكتابة من والى الملف عاأW‏ )عا الملف 
الوصول» فهي الطريقة التي تود ان تتعامل مع الملف بها وهي تلاتة انواع: 
Access‏ اSeguentia‏ لوصول المتتالي : 

الاسلوب المتبع مع الوصول المتتالي يعرف بالقراءة والكتابة سطر سطر . ولفتح 
للقراءة من الملف. الكلمة المحجوزة ام١1‏ الملف» استخدم الكلمة المحجوزة 
للاضافة الى الملف: ١١”عممة‏ للكتابة الى الملف والكلمة المحجوزةö OutPut‏ 

Open “MyFile. TXT” For Input As #1 

Open “MyFile2.TX1” For OutPut As #2 

Open “MyFile3.TXT” For Append As #3 

- باستخدام اام" 1 بامكانك قراءة سطور من الملفات -المفتوحة بالكلمة المحجوزة 
0۴حتى نهاية الملف والذي تختبره عن طريق الدالة : امہ ع اا العبارة 

Dim sLine As String 

Open “MyFile. TXT” For Input As #1 

Do While Not EOF)1( 

Line Input #1, sLine 

Text1.Text =Text1. Text & vbNewLine & sLine 
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Loop 
الكود السابق لا استخدمه آثيرا فأنا افضل قراءة الملف آاملا بدالة واحدة تسمى‎ 
1ہماuځ$ التي تعود بالحجم الكلي للملف: 0۴| » واستخدم في ذلك الدالة‎ 
Dim sFileData As String 
Open "C:\MyFile. TXT "For Input As #1 
sFileData =Input$ JLOF)1(, 1( 
Text1.Text =sFileData 
وبامكانك كتابة سطور الى الملفات -المفتوحة بالكلمة المحجوزة‎ 0utPut و‎ 
Append öةرژبعJl‎ مlدختساب‎ - # :Print 
Open “C:\MyFile. TXT” For Append As #1 
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Print #1, Text1.Text 
التي ستغلق آافة الملفات ع5٠!ا٤ ولا تنسى اغلاق الملف باستخدام العبارة‎ 
المفتوحة ان لم ترسل لها رقم ملف معين:‎ 
اغلاق الملف رقم‎ 1 
Close #1 
اغلاق آآفة الملفات‎ 
Close 
: الثنائي‎ لوصولا8Binary‎ Access 
الاسلوب المتبع مع الوصول الثنائي يعرف بالقراءة والكتابة بايت بايت . ولفتح الملف»‎ 
استخدم الكلمة المحجوزة‎ 81١3۲۷ للقراءة والكتابة من والى الملف:‎ 
Open "C:\MyFile.DAT "For Binary As #1 
Open "D:\YouFile.DAT "For Binary As #2 
عملية القراءة والكتابة من الملف متشابهتان من ناحية | لصيغة الى حد آبير . آل ما‎ 
هو مطلوب منك هو معرفة الموقع في الملف وحجم العملية . عندما تقوم بفتح‎ 
وهو اول بايت1 الملف لاول مرة. فان موقع مؤشر القراءة والكتابة من الملف هو‎ > 
والتي تعود 10۴ موجود في خارطة الملف . لمعرفة موقع اخر بايت استخدم الدالة‎ 
بحجحم الملف والذي بدیهیا یرمز الى موقع البايت الاخير:‎ 
Print LOF )1( 
Print LOF )2( 
الذي آنت اقصده من "حجم العملية " هو حجم البايتات التي تريد قراءتها من الملف‎ 
للكتابة. راقب اا٥ للقراءة او ع6 او آتابتها الى الملف . آل هذا يتم باستخدام الامر‎ 
هذا الكود:‎ 
Dim X As Long 
Get #1, 1, X 
Print X 
136 
موقع المؤشر هو‎ Get #1, , X5 
Print X 
من المهم التنويه هنا بان عملية القراءة من الملف تؤدي الى زيادة الموقع الحالي‎ 
للمؤشر بمقدار حجم العملية . ففي السطر الثاني لم احدد موقع المؤشرء لانه‎ 
بایت 4بايتات وذلك بسیبب ان حجم العملية السابق = = 4 سیزیيد بشکل تلقائي‎ 
لقراءة قيمة من نوع‎ Long هذا الكود يقوم بقراءة جمیع الارقام من ملف وآتابتها‎ . 
في ملف اخر‎ 
Dim ll As Long 
Dim X As Long 
For ICounter =1 To LOF)1( 
Get #1, ,X 
Put #2, , X 
Next 
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)عع5يمكنك تغيير موقع مؤشر الملف عن طريق العبارة : 

See) #1‏ , 1 "الى بداية الملف 

See) #2, L0۴2‏ ( "الى نهاية الملف 

والتي تتم بنفس الطريقة كو١ 5٣|‏ بدون شك تحتاج الى التعامل مع القيم الحرفية 
معلومات عن حجم القيمة الحرفية . يمكنك ء٤أكة8‏ اةuاءأ۷‏ لكنك بحاجة الى اعطاء 
. آما في Length S٣1٣9‏ dع×۴‏ عمل ذلك؟ باستخدام النوع الحرفي الثابت الحجم 
بايت من الملف: 100 المتال التالي والذي سيقرا 

Dim Y As String *100 

۱ Get #1, , Y 

واذا آنت لا تفضل استخدام هذا النوع من المتغيرات » فيمكنك عمل آي شئ تخبر 
وذلك عن طريق اسناد أي قيمة 100 ان حجم المتغير الحرفي هو ٤أكة8‏ اهلاءأ۷ فيه 
مؤقتة: 

Dim Y As String 
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Y =String )100, ("*" 

Get #1, , Y 

وعملية كتابة القيم الحرفية الى الملف يمكن لها ان تتم بشكل مباشر مثل: 

Put #1‏ , , "ملف تنائي” 

هو ترميز احادي في الذاآرة مما يؤدي الى بطئ عملية و١‏ آ٣5‏ تذآر دائما ان النوع 
التحويل خاصة في حالة آون القيم الحرفية آبير جد |. ولزيادة السرعة اآثر من 

بدلا من ٤ا8‏ » استخدم عملية المصفوفات للنوع لهذا النوع من القيم -النوع %50 
:String‏ 

Dim MyArray)1000 (As Byte 

Open "MyFile.DAT "For Binary As #1 

' كتابة محتويات المصفوفة الى الملف 

Put #1, 1, MyArray 

' او قرائة محتويات الملف الى المصفوفة 

Get #1, 1, MyArray 

: لوصول العشوائي‎ Random Access 

الاسلوب المتبع مع الوصول العشوائثي يعرف بالقراءة والكتابة سجل سجل . ولفتح 
للقراءة والكتابة من والى الملف مع ۸2۸00۳ الملف. استخدم الكلمة المحجوزة 
ارسال حجم السجل: 

Open "C:\MyData.DAT "For Random As #1 Len =200 

للقراءة من الملف آما آنت ع6 للكتابة الى الملف والعبارة نا۴ استخدم العبارة 
تفعل مع الملفات الثنائية» ولكن عليك معرفة ان حجم العملية وخطوات انتقال 
٣eاالمؤشر‏ تتأثر بالحجم المصرح عند فتح الملف باستخدام الكلمة . 
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يفيدك هذا النوع من الملفات لمحاآاة قواعد البيانات بطريقة مبسطة» مثلا يمكنك 
والكتابة الى الملف: 01ل تعريف ترآيب 

Private Type typRCD 

sName As String *20 

iAge As Integer 

End Type 

Dim Record As typRCD 

Open "C:\MyData.DAT "For Random As #1 Len =Len)Record( 

= "يآرت"Record.sName‎ 

Record.iAge =99 

, Put #1, 1, Record 

= "all ı,eع"Record.sName‎ 

Record.iAge =20 
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Put #1, , Record 

وقراءة السجلات تتم بهذه الطريقة: 

Dim Record As typRCD 

Get #1, 1, Record 

Do While Not EOF)1( 

Print Record.sName 

Print Record.iAge 

Get #1, , Record 

Loop 

اسنادات اخری 

مجموعة لا غنى ۷8۸ و ۷8 الى جانب الدوال والاجراءات السابقة» توفر لك مكتبات 
عنها من الكائنات المستخدمة في برامجك الجدية. 
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م سناد البرنامج 

يمثل البرنامج الخالي الذي يتم تنفيذه . يحتوي على مجموعة ص۸0 أسناد البرنامج 
من الخصائص والطرق التي سأتطرق الى بعضها هناء اما البقية فهي متقدمة بعض 
الشئ وافضل تأجيلها الى الفصول اللاحقة. 

تعود اج۴ . والخاصية ٤×۴‏ تعود باسم ملف البرنامج التنفيذي ع٥۸2۳٤×E‏ الخاصية 
بالمسار الكامل الذي نفذ البرنامج منه: 

Open App.Path & "\” & App.EXEName & “.EXE” For Binary As #1 

> ففي الكود ۴21 " قبل استخدام الخاصية ]من الضروري التحقق من الرمز " 
وذلك لان مسار البرنامج لن يضاف اليه ة۴ السابق اضفنا هذا الرمز بعد الخاصية 
هذا الرمز» ولكن تظهر المشكلة في الكود السابق اذا تمت عملية تنفيذ البرنامج 
" في قيمة الخاصية|للقرص. انظر الى الرمز " ۲۷هاعءا5i‏ مم8 من الدليل الجذري 
اذا نفذ البرنامج من دليل جذري او فرعي: ج۴٥‏ 

:App.P ath =€‏ \' 'الرمز مضاف 

="C:\]|MyProgram‏ ath.مpمA‏ ” 'الرمز غیر مضاف 

وحتى تتجنب المشكلة السابقة» طور هذه الدالة وحاول الاعتماد عليه عوضا عن 
مجردة: اج۴ الخاصية 

Function PathEx ()As String 

If Right)App.Path, 1" = (\ "Then 

PathEx =App.Path 

Else 

PathEx =App.Path & "\" 

End If 

End Function 

Open PathEx 8& App.EXEName & ".EXE” For Binary As #1 

تمكنك من معرفة ما اذا اتت نسخة اخرى من البرنامج ٥٤a۸اءم۷1ع۴۲‏ الخاصية 
التنفيذي قيد العمل او لاء قد تستطيع منع المستخدم من تشغيل اآثر من نسخة 
للبرنامج في نفس الوقت بهذا الكود: 
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If App.PrevInstance Then 
"لا يمكنك تشغيل نسخة اخرى من البرنامج"”‎ M5980× 


مع ذلك. لا تثق في الكود السابق آثيرا. فالمستخدم بامك انه تشغیل اآثر من 
نسخة من نفس البرنامج اذا قام بنسخ ملف البرنامج الى مجلد اخر او حتى الى 
نفس المجلد باسم آخر. 

التي تمكنك من عاطأكاا)ئة ٠‏ من الخصائص التي يمكنك تعديل قيمها الخاصية 
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- وهي النافذة التي اكا )ئة اخفاء او اظهار اسم او رمز البرنامج فقي قاثمة البرامج 
تمكنك من عرض جمیع البرامج العاملة عن طريق الضغط على المفاتيح 

Ctrl+Alt+Del ] gl [ [Ctrl+Shift+ ESC فلاخفاء اسم البرنامج في |اي وقت:‎ >] 
App. TaskVisible =False 

)كا التي تمكنك من تحديد النص الظاهر في قائمة البرامج ع|٠اًأآ‏ وآذلك الخاصية 
ctعزداP‏ » يكون النص الافتراضي هو النص الموجود عند خانة اسم المشروع أكأا 
قبل عملية sعاi† Proper‏ ectزPro‏ فقي صندوق حوار خصائص المشروع N2۳۴٤‏ 

هي مم۸ من الخصائص الاخرى التي تجدها في صندوق الحوار السابق والكائن 
.... الخ» وخصائص حقوق الملكية 0۲ء M1۸0۲‏ خصائص رقم اصدار البرنامج 

.... الخ وهي للقراءة فقط وقت llتiفi. Trademarks «LegalCopY¥RIght‏ 

أ ط1ا أسناد الحافظة 

بامكانية الاتصال وتبادل البیانات فيما بینها. صحیح ۷1۱00۷ تتميز معظم تطبيقات 
محدود الامكانيات. الا انه اسلوب 503۲4ط[ا€ ان تبادل البيانات عن طريق الحافظة 
من نسخ ولصق 821° اaاءا۷‏ . يمكنك sس0ل"‏ |۷ مازال متبع في معظم تطبیقات 
board‏ ipاالبيانات‏ من والى الحافظة عن طريق الكائن . 

: ولا بنسخ النص الى الحافظة باستخدام الطريقة‎ İxpiSetText 

Clipboard.Clear 

Clipboard.SetText Text1. Text, vbCFText 
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لمسح محتويات الحافظة قبل ١2ع‏ ا٣‏ ملاحظة: ينصح دائما باستخدام الطريقة 

نسخ البيانات لهاء وذلك لانه في خالات معينة لن تتمكن من نسخ 

بيانات جديدة الى الحافظة مالم يتم مسح محتوياتها. 

۴R ۴‏ ۷فاستخدم الثابت : ۸١۴‏ ولنسخ النصوص مع تنسيقها على هيئة 
Clipboard.Clear‏ 

Clipboard.SetText Rich TextBox1. Text, vbCFRTF 

هي المستخدمة: ةاة0ع5 اما لنسخ الصور. فالطريقة 

Clipboard.Clear 

Clipboard.SetData Picture1.Picture 

هي المستخدمةء ولكن عليك ٤۴×‏ ٠ع‏ ولاجراء عملية لصق النصوص.» فالطريقة 
rmaet‏ د۴ et‏ اختبار نوع وهيئة البيانات الموجودة في الحافظة باستخدام الطريقة 
قبل القيام بعملية اللصق: 

If Clipboard.GetFormat JvbCFText (Then 

Text1.SelText =Clipboard.GetText JvbDCF Text( 

Elself Clipboard.GetFormat JvbCFRTF (Then 

Rich TextBox1.SelRTF =Clipboard.GetText JvVbCFRTF( 

End If 

التي تشترط هيئة الصورة: aأة0ع6‏ ولصق الصور استخدم الطريقة 

If Clipboard.GetFormat)vbCFBitmap (Then 

Set Picture1.Picture =Clipboard.GetData JvbCFBitmap( 

End if 

يمكنها عرض انواع وهيئات مختلفة من الصورء الا >۲680 اا۴ رغم ان أداة الصورة 
> لذلك م2۳٣‏ ا۴6٣‏ ط۷ ان الكود السابق لن يعمل الا اذا أتت هيئة الصورة من النوع 
يفضل تمكين جميع الهيئات الاخرى: 

Dim picFormat As Variant 
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For Each picFormat In Array )vbCFBitmap, vbCFMetafile, vbCFDIB, vbCFPalette( 
If Clipboard.GetFormat)picFormat (Then 

Set Picture1.Picture =Clipboard.GetData )picFormat( 
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Exit For 

End If 

Next 

Screenأسناد‏ الشاشة 


أسناد الشاشة يمثل جميع شاشات ونوافذ برنامجك ويحتوي على خصائص تتعلق 
التي تعود خ٣‏ uه٤اnهد۴‏ بالمظهر العام لسطح مكتب نظام التشغيل. آالخاصية 
۴ بمجموع الخطوط المتوفرة في نظام التشغيل والتي تستخدمها مع الخاصية 
التي تعود باسماء الخطوط: 

Dim iCounter As Integer 

For iCounter =0 To Screen.FontCount -1 

List1.AddItem Screen.Fonts)iCounter( 

Next 

تمتل نافذة النموذج النشطة في البرنامجء وهي مرجع الى ۲۳٥۴0ع۷ااAc‏ الخاصية 
فهي تمتل الاداة التي عليما اه٣‏ ا٣0‏ عvااAc‏ اسناد نافذة النموذج» اما الخاصية 
الترايز: 

Screen .ActiveForm. Caption‏ = "التافذة النشطة"' 

تعودان بارتفاع وعرض الكتافة النقطية W1‏ و ااواع1 اخيراء الخاصيتان 
lلشlة: Resolution‏ 

Print "Width " =& ScaleX)Screen.Width, vbTwips, vbPixels( 

Print "Height " =& ScaleY)Screen.Height, vbTwips, vbPixels( 

Printer‏ أسناد الطابعة 

الطباعة من المزايا الضرورية التي لابد من توفيرها في برامجك الجدية . بعيدا عن 
والذي اع زط0 rعintاP‏ اسناد الطابعة اج8 اهuاء۷i‏ المعقدةء يوفر لك ۸۴1 اجراءات 
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rit‏ قبل التوغل فقي اعضاء سناد الطابعة اود ان اتطرق الى مجموعة الطابعات 
. هذه المحموعة تمتل جميع الطابعات الموجودة في الجهاز الحالي . ١0ااعءااCo‏ 
لاتستطيع تعديل مزايا هذه الطابعات بشكل مباشر . فلابد في البداية من تحديد 
الطابعة وتعيينها للاستخدام ومن تم تستطيع تعديل الخصائضص. 

خاصية اسم الطابعة ك۲عا١أ۴۲‏ من الخصائص الموجودة في مجموعة الطابعات 
المرآب عليه Port‏ . رقم nJlمiخفذ DeviceName JغزénJl pl و|Deriver Name‏ 
الطابعة ....الخ: 

Dim X As Integer 

'استخدام المجموعة 

` Printers Collection 

For X =0 To Printers.Count -1 

Print Printers)X.(DeviceName 

Next 

بكل تأكيد تود من المستخدم تحديد | لطابعة التي يريد استخدامه |. آل ماعليك هو 
الى الكائن ك١۲عا١‏ آ۴۲ توفير آود مناسب لتعيين الطابعة الموجودة في المحموعة 
×0 8ءiا.‏ هذا متال لعمل ذلك باستخدام |Jڼژدlةö‏ : Printer‏ 

Private Sub Form_Load() 

Dim X As Integer 

استخدام المجموعة 

` Printers Collection 

For X =0 To Printers.Count -1 

List1.AddItem Printers)X.(DeviceName 

Next 

End Sub 


أعداد المبرمج:مشتاق طالب رشيد العامرى ۸٣‏ 


mushtaq_talib58@yahoo.com## #Mushtaq Talib Rashed 2009: جميع الحقوق محفوظة للموٌلف‎ 


Private Sub List1_Click() 

'تحديد الطابعة من المجموعة 

Set Printer =Printers)List1.ListIndex( 

End Sub 
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لتعديل خصائص | لطابعة الحالية او ۲عا١أ۴۲‏ والان آل ما عليك هو استخدام الكائن 

التي تعرف عن ع0 ۲Mهاهع‏ البدء في عملية الطباعة . من هذه الخصائص . خاصية 

والتي ۷ااaةrQuء Pint‏ طريقها ما اذا أتت الطابعة داعمة للالوان ام لا . والخاصية 

تعود بنوع الكتثافة النقطية وجودة الطباعة . الخصائص الاخرى تجدها بشكل مفصل 

في مكتبة . 

اما عملية الطباعة الفعلية فتتم باستخدام طرق أسناد الطابعة وهي نفس الطرق 
.. الخ واستخدامها يتم بنفس ٣١۴۲ء‏ ع”أاء ع» اا٣‏ الموجودة في أسناد النموذج 

الال التي استخدمناها مع نافذة النموذج في الفصل التاني "النماذج والادوات ". 

لبد»ء ۴۸۵00٥‏ بعد ان تنتهي من ارسال البيانات الى الطب اعة» استخدم الطريقة 

عملية الطباعة الفعلية: 

Printer.RightToLeft =True 

Printer.FontSize =40 

Printer.Print‏ "ترآي العامري” 

'ابدا عملية الطباعة 

Print. EndDoc 

واضح من اسمها عموة۲سعN‏ تقوم بانهاء عملية الطباعة» والطريقة ٤١٠0(||أ×‏ الطريقة 

انها تخرج صفحة جديدة. 

ااتشاف الاخطاء 

مما لا شك فيه» ان من اهم اسباب انتشار الشعيرات البيضاء في رؤوس 

المبرمجين هي الاخطاء البرمجية . فكم من مبرمج آسر شاشة جهازه بسبب آثرة 

الاخطاء غير المتدارآة في برنامجه»ء وآم من مبرمج توقف عن إآمال مشاریعه 

بسبب عدم معرفة مصدر الخط أ. كتابة برنامج دون اخطاء شيءَ يتحقق في الخيال 

فقط! لکن آلما زادت احتياطاتك لتفادي الاخطاء قلت نسبة ظهورها. 

فكرة عامة 

تصنف الاخطاء في أي لغة برمجة الى صنفين على اساس وقت حدوثها اما رفي 

وقت التصميم او وقت التنفيذ . هذه الاخطاء تسبب انهيار برنامجك وانهاء تنفيذه . 

بالاضافة الى ذلك» يوجد نوع من الاخطاء التي لا تظهر لك بشكل مباشر تعرفق 

. لنلقي نظرة على هذه الاصناف: كولا86 بالشوائب 
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: اخطاء وقت التصمیم‎ Design rime Errors 

وهي اسهل انواع الاخطاء اآتشافا ٤۲۲۵۲۶‏ ×هأمرS‏ وتعرف ايضا بالاخطاء النحوية 

واصلاحا. وقت حدوت هذه الاخطاء يكو ن في مرحلة التصميم او الترجحمة للبرنامج . 

سببها الرئيسي في طريقة كتابة العبارات البرمجية الخاطئة . فمثلا قد تكتب اسم 

Next‏ بدون اقفالها باستخدام . ۴۵۲ دالة ليست موجودة» او تنشیئ حلقة 

تقنية في قمة الروعة هدفها قنص ءأكة8 اةuءآ۷‏ توفر لك بيئة التطوير المتكاملة ل 

1]. | الاخطاء تلقائيا بمجرد الوقوع فيها وذلك بعد الضغط على المفتاح‎ هذه۴N‎ ER 

] ستلاحظ ظهور رسالة توضح لك ۲۴۸ ۴۸واضغط مفتاح | 4== × متلا قم بكتابة 

الخطأً وقد قلب لون السطر بالاحمر . تعرفق هذه التقنية بالتدقيق النحوي التلقائي 

Auto Syntax Check رlıتخI|‎ Jقıر¦‎ i والتي تستطيع الغ اٿه | ع‎ Auto Syntax 

. لا اعتقد انك ك هاأم0 في نافذة الخيارات ۲٥آك‏ ع الموجود في خانة التبويب Check‏ 

ستلغيها يوما من الايام اليس آذلك؟! 

: وقت التنفیذ‎ ءاطخاR‎ un rime Errors 

وقت ظهور هذه الاخطاء مختلف . فلن تظهر الرسالة المزعجة السابقة وقت كتابة 
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الكود و انما في وقت التنفيذ . عندما يصل المفسر عند سطر صحيح نحويا لكنه 
ويظھر تحديد لمكن Run Time ErrOF‏ خاطئ منطقيا ستظهر رسالة خط أ بعنوان 
السطر الذي وقع فيه الخطأ. مثلا اأكتب هذا الكود: 
Dim X As Byte‏ 
X =256‏ 

من الواضح ان الصيغة النحوية لهذا الكود صحيحة لكن من الن احية | لمنطقي ة خط أ. 
وذلك لان القيمة 0۷6۲۴۱0۷ جرب تنفيذ البرنامج وستلاحظ ظهور رسالة خطأً 
. طبعا اخطاء وقت 255 هي ع ر8 القصوى التي يمكن ان يحملها أي متفير من نوع 
التنفيذ آتثيرة جدا جدا» فانت عندما تصمم البرنامج تتوقع ان آل الاحتمالات 
الخارجية آما هي في حالة تصمي م البرنامج . مثلا لو وجد في احد سطور برنامج 
امر يقوم بمسح ملف معين وأكتبت هذا الكود: 
Kill "FileName.EXT ”‏ 
قد عمل معك بالشكل المطلوب» لكن افترض ان الملف لم يكن موجود؟ فان رسالة 
الخطاً سیکوت لما نظب مل عمر تنفیذ البرنامج . فلو آنت ذآيا ستتأآد من وجود 
ومن تم حذفه: 01۲ الملف باستخدام دالة 
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If Dir$)"FileName.EXT” (Then Kill “FileName.EXT ”‏ 
يبدو ان ذآائك خارق جدا يا قارىئ هذه السطور لكن مهلا آأكتب هذه السطور لديه 
مدعومة به R۵07,‏ شیئ اخر ليخبرك به . ماذا لو أن الملف موجود لكن خاصية 
أي انه غير قابل للحذف؟؟ اژأیت رس الالخطاً ستظهر من جديد . اذن ستستخدم 
ReadOnly‏ ذاائك الخارق وتتأًآد من وجود الملف ومن تم من عدم وجود خاصية : 
If Dir$)"FileName.EXT” (Then‏ 
If Not )GetAttr")FileName.EXT” (And vbReadOnly (Then‏ 
Kill "FileName.EXT”‏ 
End If‏ 
End If‏ 
حسنا يا قارئي الفاض ل» لك مني فائق التقدير والاحترام على محاولتك الرائعة 
لتجنب الخطأً لكن مع ذلك فهناك احتمال اخر لوقوع الخط أ! افترض ان الملف 
وأتت عليه خاصية ۲۲۵٤٩٤5‏ یتم استخدامه من قبل برنامج اخر ۳٥ .٤×1‏ le۸N2ا۴i‏ 
الاقفال -أي مسموح للبرنامج الذي يستخدمه فقط - فانك لن تستطيع فتح | لملف 
وستظهر رسالة الخطأً التي اخبرتك بها واآون قد غلبتك في هذا التحدي. 
القضية ليست من يغلب من» فكلنا مبرمجين ننسى آثير ا. لكن لابد لأي مبرمج من 
وضع جميع وآافة الاحتمالات الممكنة لتفادي وتجنب الاخطاء آما سنرى لاحقا. 
Bugs‏ الشوائب : 
قد يكون الكود سليم من ناحية نحوية ولا توجد به آي اخطاء ف وقت هن 
به شوائب . لا یوجد برنامج الا وبه شوائب . الشوائب هي اخطاء في سلوك تنفیذ 
البرنامج لكنها لا تسبب في ايقافه» وهي صعبة الايجاد والاآتشاف . لذلكء تجد 
توزع على اش خاص هع8 غالبا في البرامج التجارية الكبيرة صدور نسخ تجريبية 
وشرآات معينة الهدف منها تجربة البرنامج والتحقق من واآتشاف الشوائب 
الموجودة فيه . من اآبر الاخطاء الذي يقع فيها المبرمج هي محاولة اآتشافق 
الشوائب بنفسه . لأنك لن تستطيع اآتشاف الشوائب الا عن طريق غيرك » ففي 
حالة تجربة برامجحك الشخصية فانك اآثر من يعرق طريقة التعامل معهاء لكن في 
حالة وجود نسخة من البرنامج عند شخص اخر فالوضع يختلف» وتبدأً الشوائب 
بالظهور لديه. 
به شوائثب. هناك الكتير من الشواثب التي تكتشف شهريا وتصدر ٤‏ |625 اVisua‏ 
. بعضها تم ×5١‏ تقارير عنها تجدها بشكل دوري في مكتبة غ۲050۴٥Mi×‏ شرآة 
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اصلاحه و ال بعض الاخر لا. المقصد من هذا الكلام انه مهما أن مستواك في 
البرمجة لابد من وجود شوائب في برنامجك. 
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يوجد الكثير من الكتب التي تناقشضش مسألة الشوائب البرمجية وآيفية تفاديها -اقصد 

الاقلال منها- الا انها مواضيع خارج نطاق الكتاب. 

۴۳ع الکائن 

» الى موضوع اخطاء وقت | لتشغيل وبالتحديد في متال الملف‎ ادوع۴اeName.‎ EX 

بدلا من كتابة عشرات الاسطر للتأًآد من قابلية حذف الملف» استخدم أسناد 7 
. قبل تطبيق هذا الكائن » عليك معرفة أن آل خطأً من اخطاء وقت التشغيل له ۴۲۲ 

E CN NT‏ وعند 

عند رغبتك ۴۲۲ حدوث الخطاً يتم وضع هذه البيانات -الخاصة بالخط أ- في الكائن 

في الاستمرار في عملية تنفيذ البرنامج حتى عند وقوع الخطاً لابد من كتابة 

عند بداية آل اجراء تتوقع حدوث خطأً فيه حتی ا×Ne 0n Error Resume‏ التعلیمة 

يستمر في تنفيذ سطرور البرنامج راقب هذا المتال: 

On Error Resume Next 

Kill "FileName.EXT” 

If Err Then 

MsgBox Err.Description 

Err.Clear 

End If 

٣۲‏ هنا سنقوم بمحاولة حذق الملف > ان لم يستطع البرنامج فعل ذلك فان الكائن 

سيحتوي على خصائص تتعلق بذلك الخط أ و سنظهر رسالة توضح وصف الخط أ. من 

حتی نخبر C1٤3۲‏ عن طریق استدعاء الطريقة ٤٣١‏ المهم التأآد من تنظيف الكائن 

البرنامج اننا انتهينا من قنص الخطأً وانه لا يوجد خطأً اخر. 

Err Then‏ 1۴ اما اذا تت اآواد الاجراء طويلة ولا تود ان تكتب الجملة الشرطية 

والتي تؤدي الى الانتقال الۍ × 0اه ۴۲۲۵۲ 0۸ مرات متعددة. فيفضل استخدام 

سطر معين فڦي حال حدوت آي خطاأً قي تنفيدذ اآواد الاجراء: 
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Sub LongSub () 

On Error Goto X: 


X: 

MsgBox Err.Description 
Err.Clear 

End Sub 
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الفصل الخامس 

هي لغة برمجة مبنية Basic‏ ان VB3‏ و 81ء ۷82 عرفت الاصدارات 

> اما نقطة التحول 08۲ تختصر~ Object Based Programming Language‏ الکائنات 
على انها لغة اوج8 اهنءا۷ والذي مكننا من اعتبار ۷/84 أتت منذ انطلاق الاصدار 
öOOP+iëڏڄٍصر‏ -— Object Oriented Programming Language‏ بر مجة أسنادية التوحه 
على هذه اللغة. الا ان البعض يعترض على كعءءها€ بعد اضافة ميزة تعريف الف ثات 
00۲P‏ لعدم دعمها لبعض الميزات الاساسية للغات 00۲ بانها ٤أئة8‏ اقuكا۷ا‏ وصف 
.... الخ» من ناحية اخرى فهو 9" لةه ااOve‏ . إعادة التعريف rit ۸٤€‏ م1nh‏ آالوراثة 
عن ط ریق تعریف ۸٥0خهالاsم‌هء‏ "۴ وهو التغليف 00۴ يدعم المبدأً الاساسي للغفات 
1nterfacesوالواجهات‏ . sھssھا€‏ الفثات 

€حقيقية آلغات ++ . 00۴ لا يعتبر لغة أسنادية التوجه ٤أكة8‏ اقاءأ۷ خلاصة القول؛ 
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وتطبيق معظم مبادئه |. 00۴ . ولكنه يمكنك من محاآاة لغات 3۸۷۸ او ۸ا۱/۲aاSma‏ 
للجميع - نحو برمجة أسنادية التوجه "» كج8 اهلاألاومن منطلق عنوان هذا الكتاب " 
اةuءVi‏ وتطبيقها ب 00۴ فهذا الفصل هو مدخلك الرئيس الى البرمجة أسنادة التوحه 
> وستكون جميع الفصول اللاحقة من هذا الكتاب مبنية على هذا الفصل. ٤ئ82‏ 
نظرآً لأن جميع الفصول اللاحقة من هذا الكتاب ستكون مبنية على ما تعلمته من 
هذا الفصل» فاني ارجو منك أن تتقبل مني هاتين النصيحتين: 
- لا تحاول تجاوز إي فقرة . اذا شعرت أنك غير مستوعب للفكرة. حاول قراءة 
الفقرة جديد مع تطبيق الأمثلة المدرجة. 
- حاول ابتكار امتثلة جديدة من وحي افكارك» وقم بتطبيقهاء لتتمرس على هذا 
الأسلوب من البرمجة. 
0P‏ مقدمة الى 
فتستطيع الانتقال 00۴ اذا آنت على دراية آ افية بمصطلح البرمجة أسنادية التوحه 
فيمكنني إن اعرق 00۲ الى فقرة بناء اول فئة مبسطة. اما ان آنت جديدا على 
لك البرمخة أسناذية التوخه على انها برمجة موجهه نحو أسنادات او اهداق فكل شئ 
150 
له بيانات وافعال خاصة به أي 9٣ا٣‏ او شئ اء6زط0 في برنامجك عبارة عن أسناد 
اشبه بالعالم الخقيقي الذي تراه يومياء فالانسان أسناد له صفات معينة (خصائص 
) آالاسم. العمرء اللونء الطولء الوزن .... الخ» وله افعال يقوم بها كعti Prop‏ 
) آالمشي. الكتابةء الضحك» البكاءء النوم .... الخء آما ان الانسان كلهط†م× (طرق 
) تؤثر فيه وینتج عنها ردود فعل آاستقبال رسالة ۴۷6٥٣۶‏ تحدث عليه وق ائع (احدات 
مفرحة او محزنةء التعرض لجلطة في المخ» وصول لكمة خطافية في الفك الايمن؛ 
صفعة قوية في الخد الايسر .... الخ. 
> فهي تحتوي على خصائص تحوي بيانات 8251 اقuءا۷‏ آذلك الحال مع أسنادات 
.... الخ وطرق لتفعل افعال خاصة بہا ا۴ ع1 Height‏ orاco€8Backخاصة‏ بھا متل : 
....MouseMove «Click‏ |Jlخ«‏ وlحدا‏ تع «Refresh «Move . Î lpıle‏ ZOrderمiثل:‏ 
> .... الخ تنتج عنها ردود فعل خاصة. ssئKeyPre‏ 
0P‏ 0لاذا ؟ 
آثيرة جدا ولكني ساختصر تلاتة منها: 00۴ بصراحة الفوائد التي تجنيها من 
فالبرنامج 00۲ - عندما تكبر حجم البرامج تزداد عملية ادارتها تعقيدا» لكن مع 
يتكون من مجموعة أسنادات بحيث انه لو حدثت مشکكلة في احدها فكل ماهو 
مطلوب هو تعديل ذلك الكائن دون ان تتأثر الكائنات الاخرى» وحتى لو اردت 
تطوير احد الكائنات فلست مضطرا الى تنقيح آلاف الاسطر من البرنامج» وآل ما 
يتوجب عليك القيام به هو الانتقال الى آود الفئة وتطويره فقط. 

- تصميم البرامج والتخطيط لبنيتها اصبحت اسهل من البرمجة الاجرائية واقرب 
الى العالم الحقيقيء فعندما تخطط لبرنامج جديد فنظرتك ستكون بعيدة عن 
الاأآواد وقريبة الى التصميم بحيث تنجز مه امك بسرعة اآبر وسهولة اآثر . 
فعندما تصمم فئة جديدة» فلن يشغلك أي آود او متغير خارج هذه الفئة قد يؤثر 
على سلوك تنفيذ الاآواد» وسيكون آل ترآيزك على هذه الفئة وأنها الجزء 
وعدم تأثر sوا8‏ الوحيد الموجود في البرنامج» مما يقلل نسبة الشوائب 
متغيرات وبيانات برنامجك. 
دون أسنادات واردت تغيير ٤أ835‏ اقلاءا۷ - ستجعل حياتك اسهل» فلو تخیلت 00۲ 
اسم النافذة. فقد تكتب شيئا مثل: 
151 
Dim hWND As Long‏ 
hWND =FindWindow )"Form1”(‏ 
ChangeCaption )JhWND, “Main Menu”(‏ 
Captin‏ وتقوم بتفییر خاصیته ۴۵۲۳1 فانك تتحدث عن آسناد اسمه 00۴ لکن مع 
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الى الاسم الذي تريده بسهولة شديدة. 

تامس00P‎ 

بشكل-. فالفئة اءعزط0 والكائن ككةا€ من الضروري ان اوضح الفرق بين الفئة 

مبسط- هي مجرد وصف لخصائص» طرق واحدات الكائن» بينما الكائن هو وحدة 

تحتوي على بیانات واآواد معرفة في الفئة . اعود للمتال السابق. فالانسان هو فثة 

واعوذ-خلقها الله عز وجل واصفة لخصائص. طرق واحداث أسنادات مشتقة منهاء فأنا 
.. 9 باللّه من آلمة ان ا- أسناد لدي خصائص من فئة الانسان آالاسم ترآي» العمر 

الت وانت ايضا أسناد لديك خصائص من نفس الفئة "الانسان " آاسمك س» عمرك 

هي ۲۴×2 و ۲٥×1‏ . فادوات النص ع أكة8 اةuءأا‏ ص .... الخ. آذلك الحال مع 

هي أسنادات 3عطةا و 1اعطهاء 2اعطهL‏ . وادوات العنوان ٠۴×80×‏ أسنادات من الفئة 

امbةامن‏ الفئة . 

00 بودي ان اعرض عليك باختصار السمات الثلاث ل : 

التغليف: 

Putting‏ بوضع جمیع الاشیاء معا 00۲ في لغات ۸٥tةاsuمpةc‏ ۴۸ یقصد بالتغلیف 

> بحيت تحقق استقلالية الكائن المطلقة ببياناته ائلخlاصة‏ ڊa everything together‏ 

وحتی اآوادهء من المزايا التي يقدمها لك التغليف هو امكانية تطوير البنية التحتية 

للكائن بدون ان يتأثر ترآيب برنامجك ودون الحاجة الى تعديل سطر واحد من اآواد 

البرنامج» مثلاالو قمت بتصميم فئة لل بحث عن الملفات واعتمدت عليه بدرجة آبيرة 

في برنامجك. وبعد فترة من الاختبارات والتجارب القوية لاحظت بطء في عملية 

التنفيذ. فكل ما ستفعله هو تعديل البنية التحتية للفئة الخاصة بالبحث وتطوير 

خوارزميات اآوادها دون تغيير سطر واحد من سطور البرنامج الاخرى والتي 

تستعمل هذه الفئة بالتحديد. 

آلما زادت استقلالية الفئة» آلما زادت آفاءة اعادة استخدامها في برنامج آخر 

. مبدأً اعادة استخدام yاiاReusabi‏ مCod‏ وتطبیق اسلوب اغادة استخدام الاآواد 

الاآواد من احد المبادئ الضرورية التي يتوجب عليك محاولة والتعود على تطبيقها 

دائما في برام جك ومشاريعك اليومية» بحيت تتمكن من الاستفادة من الفئة التي 

صممتها فقي اآثر من مشروع واآثر من برنامج . وحتى تنشئ فئة قابلة لاعادة 

الاستخدام حاول دائما وقبل ان تبدأً بكتابة سطر واحد من الفغة باخذ احتياطاتك 
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للمستقبل واسأل نفسك اسئلة شبيهه ب : آيف يمكنني الاستفادة من هذة الفئة 

في برنامج آخر؟ آيف اسمي واحدد الخصائص. الطرق والاحداث بحيث تكون قابلة 

للعمل مع اآثر من برنامج وقابلة للتطوير ايضا ؟ آيف اجعل هذه الفئة مستقلة قدر 

المستطاع عن أي اآواد او أسنادات اخرى في البرنامج بحيث يمكنني استخدامها 

في برنامج آخر؟ ...لخ م ن الاسئلة والاعتبارات التي لابد من وضعها في الاعتبار 

قبل بناء الفئة وعند كتابة ال اجراء من اجراءاتها. 

تعدد الواجهات: 

هو قدرة الفئة على احتوائها اآثر من ۳ءأامامصرام۴ بباسطة مبدأً تعدد الواجهات 

واجهة بحيث تمكنك من توحيد عدة فئات مختلفة باسماء اعضاء متشابهه» فلو 

ستجد انها مختلفة المهام والانجازات الا >أئة8 اقuءا۷‏ امعنت النظر قليلاً في ادوات 

مما )icاC‏ و eftا. Move‏ انها تحتوي على خصائص. طرق واحداث مشترآة آ 

يسهل عليك آمبرمج حفظها وتوحيد الاجراءات التي تستخدم هذه الاعضاء . الفصل 

القادم يناقش مبدأً تعدد الواجهات بالتفصيل. 

الوراثة: 

هي قدرة فئة على اشتقاق اعضاء من فئة ام بحيث تزيد من ٥€٥‏ مم1 الوراتة 

قوة الفئة الوارثة وتضيف اعضاء جديدة للفئة الام فلو أن لديك فئة قوية واردت 

اضافة طريقة او خاصية لهاء فلا يوجد داعي لاعادة بناء الفئة من جديد واضافة 

الخاصية او الطريقة المطلوبة» فكل ما ستقوم به هي عملية انشاء فئة خالية 
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تضيف اليها الخاصية او الطريقة التي تريدها ومن تم تشتقها من الفئة التي تريد 
تطویرها واضافة الخاصية او الطريقة لها. الفصل القادم يناقش مبدأً الوراثة بالتفصيل. 
بناء اول فئة مبسطة 

آي نبدأً بتصميم اول فئة تمثل شخص سنسميها ›أئة8 اھاءا۷ والان شغل 

< ومن صندوق |لھحوlر Project‏ من ûlمة CPers0n رمۈJl رiخl . Add Class Module‏ 
لتظهر لك ١۴٤م0‏ وانقر على الزر عاduلهN‏ ككها€ قد- يظهر امامك. اختر الرمز-الذي 
] لعرض نافذة خصائص الفئة. ۴4نافذة اآواد تعريف الفئة. اضغط على المفتاح [ 
واأكتب هذا الكود في الفئة: ٤۴١۲50١‏ الى 551ةا€ وعدل خاصية الاسم من 
Public sName As String‏ 

Public dBirthDate As Date 
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و 2۴ء تحتوي على الخاصیتین C۲۴۲50١‏ وبهذا نكون قد انجزنا اول فئة بالاسم 
في أي مكان داخل مشروعك. ٥۴۵۲50۸‏ . تستطيع استخدام llلفûة dBirth Date‏ 
التابع لنافذة النموذج واأكتب هذا الكود: )ءا€ اذهب الى الحدث 

Private Sub Form_ Click() 

Dim Turki As New cPerson 

Dim Khaled As New cPerson 

= "ترآي العامري"‎  urki.sN ame 

Turki.dBirthDate =#1/1/1900# 

Khaled.sName"خالد‏ الابراھیم" = 

Khaled.dBirthDate =#1/1/1979# 

Print Turki.sName, Turki.dBirthDate 

Print Khaled.sName, Khaled.dBirthDate 

End Sub 

من الفئة التي صممناها ل١عاةK‏ و u ۲)İ‏ قمنا -في الكود السابق - بانشاء أسنادين 
لکل dBirth Date‏ و مsNam‏ . ومن تم قمنا بتعیین قیم للخاصیتین CK۴٥۲۹0۸‏ للتو 

و أkاu"‏ أسناد على حدةء وختمنا الكود بطباعة قيم الخصائص التابعة للكائنين 
.Khaled‏ 

بشكل جاد - لطباعة قيم-صحيح ان الفئة السابقة لن تطبقها في حياتك البرمجية 
متغيرات. الا ان الغرض الاساسي هو مجرد توضيح فكرة الفئثات وطريقة استخدامها. 
بناء الفئات 

سنبدأً بالتوغل في كع55ها والان بعد ان عرفتك على الفكرة الاساسية من الفئات 
تفاصيل بناء خصائصهاء طرقها واحداتها حتى تزيد من قوة الفئة. 

بناء الخصائضص 

السابقء فسنلاحظ ان المبرمج يستطيع اسناد K۴۴۲50١‏ اذا عدنا الى متال الفئة 
> وقد يعطي فرصة للمستخدم بادخال العمر من عاة08i۲K۸0‏ أي قيمة للخاصية 
خانة نص: 

Turki.iAge =CDate )Text1.Text ( 
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المشكلة في الكود السابق. ان المستخدم بامكانه ادخال أي عدد يمثل تاريخ 
ميلاد الشخص وقد يكون تاريخ لم يحل بعد. لذلك عليك التحقق من تاريخ الميلاد 
Birth Date‏ في آل مرة تمكن المستخدم من ادخال قيمة للخاصية : 

If CDate )JText1.Text (> Date Then 

Ms980>‏ "خطا في القيمة" 

Else 

Turki .dBirthDate =CDate) Text1. Text( 

End If 

يعيب الكود السابق انه يلزمك بعملية التحقق من القيمة في آل مرة تريد اسناد 
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> والحل هو باستخدام نوع خاص من الاجراءات يس مى عأة48¡۲۲۸0 قيمة للخاصية 
الخصائص والتي تمثتل خصائص الكائن لتحميه من القيم الخاطئة: 

Private m_dBirthDate As Date 

Public Property Get dBirthDate ()As Date 

dBirth Date =m_dBirthDate 

End Property 

Public Property Let dBirthDate (ByVal dNewValue As Date( 

If dANewValue > Date Then 

×980ءM‏ "خطأً في القيمة” 

m_dBirthDate =Date 

Else 

m_dBirthDate =dNewValue 

End If 

End Property 

آما في الكود-من داخل الفئة ×980ء« ملاحظة: في الحقيقة. اظهار رسالة 
السابق“- يعتبر اسلوب غير احترافي وتصميم سيء جدا للفئات 

خاصة عندما تزيد احجامها» ويفضل ارسال رسالة خطا بالطريقة 

Err.Rais€e ja بدلا‎ Ms980> الا انني استخدمت الدالة‎ . Msg B0» 

في المتال لتقريب الفكرة اليك. 
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سيناريو تنفيذ الاجراءات السابقة سيكون آالتالي : في آل مرة تقوم بتعيين او 
dBirthDate‏ ها ». سيتم استدعاء الاجراء عtاة0‏ 1ا48 اسناد قيمة جديدة للخاصية 
> وقي اول مرة تقوم بقراءة قيمة عuاة۴W۷ع١d‏ وارسال القيمة الجديدة الى المتغير 
والذي يعود بقيمة ع02 it۸اQ8‏ ام6 » سيتم استدعاء الاجراء عd8irthn0at‏ الخاصية 
دون الحاجة لتعريف متغير خاص عوA|‏ الخاصية. بامكانك ايضا اضافة خاصية جديدة 
Private :lpJ‏ 

Public Property Get iAge ()As Integer 

iAge =DateDiff")yyyy", m_dBirthDate, Date( 

End Property 

Let Age‏ وتجاهلت الاجراء عموA|‏ ام6 تلاحظ انني لم استخدم الا اجراء واحد وهو 

> فلو حاول المبرمج 0۸1۷ 20ع ۸ للقراءة فقط عوA|‏ وذلك لاني اريد ان اجعل الخاصية 
ead Onاy Property‏ Rتعيين‏ او كتابة قيمة جديدة للخاصية ستظهر رسالة خطا : 
Print Turki .iAge‏ 'ممكکن جدا 

0= € وurkİ.|A r‏ 'رسالة خطأً 

Property‏ دون الاجراء Property Let‏ وبامكانك تطبيق العكکس» اي استخدام الاجراء 
rite Onاy Property‏ Wلتجعل‏ الخاصية للكتابة فقط : Get‏ 

Private m_sPassword As String 

Public Property Let sPassword )sNewValue As String( 

m_sPassword =sNewValue 

End Property 

Functions‏ او u's‏ المزيد ايضاء يمكنك التعامل مع اجراءات الخصائص آاجراءات 
Parameters‏ عادية لتمکنها من استقبال قیم : 

Private m_sAddress )2 (As String 

Public Property Get sAddress )ilndex As Integer (As String 

sAddress =m_sAddress )ilndex ( 

End Property 
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Public Property Let sAddress)iIndex As Integer, sNewValue As String( 
m_sAddress )Jilndex = (sNewValue 

End Property 
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بهذه الطريقة: كك۲6 A١‏ وبامكانك استدعاء الخاصية 

ress (0‏ urki.sAddا‏ = ( " شارع الحقيقة-حي الوهم ” 

1) ssئurki.sAddre r‏ = ( “ باآستان-ولایة فلوریدا ” 

2( sئsAddre. Turki‏ = ( " 999 هاتف منزل” 

وعند الحديت عن الخصائص التي تمكنك من اسناد قيم لكائنات» فعليك استخدام 

ءlرجالا‎ Property Set : ءlجIl‎ je lbgeProperty Let 

Private m_PersonParent As CPerson 

Public Property Get PersonParent ( J)As CPerson 

Set PersonParent =m_PersonParent 

End Property 

Public Property Set PersonParent )ByVal objNewValue As CPerson ( 

Set m_PersonParent =objNewValue 

End Property 

: مواصفات الخصائص‎ Property Attributes 

Procedure Attributes‏ بامکانك تعدیل مواصفات الخصائص عن طریق صندوق الحوار 

بعد تحريك مؤشر الكتابة الى مكان اجراء كامه ا والذي تصل اليه من القائمة 

> اخفاء yإعertمProp‏ tاDefau‏ الخاصية. من هذه المواصفات: جعل الخاصية اف تراضية 

> كتابة وصف للخاصية 8۲0۷56۲ اءعز[ط0 الخاصية من نافذة مستعرض الكائنات 

...لخ» بامكانك استكشاف باقي الخيارات في صندوق الحوار» وعليك ان تعلم علم 

. فقط ولن تظهر لك في 15 اليقين ان جميع هذه الخيارات ستحفظ في ملف الفئة 

نافذة محرر اآواد الفثة. فلو قمت بعملية نسخ ولصق اآواد الفئة الى فئة اخرىء 

عليك اعادة عملية تحرير مواصفات الفئة. 


معرفة داخل الفئةء ولا ١0اأع۴u‏ او دوال Subs‏ ماهي الا اجراءات dsمطاعمM‏ الطرق 
" لتفاصيل بناء 8451٣‏ اعتقد انك بحاجة الى اعادة الفصل التثالت "لغة البرمجة 
 ۴erson‏ الاجراءات والدوال. مع ذلك: هذا متثال لطريقة تابعة للفئثة : 

Public Sub SetData)sName As String, dBirthDate As Date, sAddress As Variant( 
Me.sName =sName 

Me.dBirthDate =dBirthDate 

Me.sAddress)0 = (sAddress)0( 

Me.sAddress)1 = (sAddress)1( 

Me.sAddress)2 = (sAddress)2( 

End Sub 

بامكانك استدعاء هذه الطريقة بدلا من تعيين آل خاصية على حده: 

بدلا من تعيين الخصائص 

Turki.sName =txtName. Text 

Turki.dBirthDate =CDate )txtBirthDate. Text ( 

Turki.sAddress )0 = (txtAddress1. Text 

Turki.sAddress )1 = (txtAddress2. Text 

Turki.sAddress )2 = (txtAddress3. Text 

'استدعي الطريقة 

Turki.SetData txtName, CDate)txtBirth Date(, Array)txtAddressl, _ 
txtAddress2, txtAddress3( 

ملاحظة: حتى لو لم تقتع بفكرة تعيين الخصائص باستخدام الطرق آما في 
المثال السابق. تذآر ان استدعاء الطريقة السابقة اسرع بخمس 

مرات من تعيين قيمة آل خاصية على حده» وستؤثر هذه السرعة 

DCM‏ او . CM‏ آمکونات-آلما آتت اآواد الکائن ابعد 
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بناء الاحداث 
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حدث الانشاء ۷84 عندما نربط بين آلمتي الاحداث والفئات يتبادر لذهن مبرمجي 

. لكن مع الاصدارات الاحدث. |اصبحت Class_Initialize ءlqilJl, Class_Terminates‏ 
اعا الفثات قابلة على انشاء وتعريف احداث جديدة قابلة للتصريح من العملاء 
والذين قد تكون انت احدهم.-المستخدمين لتلك الفئة 

الفكرة ليست صعبة او مختلفة عن الاحدات الموجودة في الادوات » لن أخذ مثلا نافذة 
ولاشتقاق واستخدام ذلك الحدت )اا٤‏ » تم تعریف حدت فیا باسم ۴٥۲۳‏ النموذج 
آل ما هو مطلوب منك وضع اسم الكائن ثم شرطة سفلية ومن ثم اسم الحدث 
آما في هذا الكود: 

Private Sub Form_Click() 

'اشتقاق حدت النقر من أسناد النموذج 

End Sub 

قد يحتوي على طلاS‏ من هنا يتضح لنا ان الحدث بكل بساطة عبارة عن اجراء 
lKeyPressو‏ . MouseDown‏ آالموجودة في حدث ۴2۲8۳٥٤۲5‏ متغیرات اضافیة 
موجود في ٩۴۸5€٤ع2586 (a21‏ الذي سنفعله هنا بالضبط هو تعريف حدث باسم 

. ولتعريف هذا | لحدت الجديد في الفئة سنستخدم الكلمة المحج وزة C۴€٥۲50١‏ الفئة 
:Event‏ 

'تعریف حدث جدید 

Event DataHasBeenSent)objTo As CPerson, bSuccess As Boolean( 

لكن مهلا ! متى يستم تنفيذ هذا الحدتث؟ هل سيكون ذلك عند استخدام خصائص 
لتفجير الاحداث؟ اوج8 اقاءأ۷ وطرق الكائن آل مرة؟ ام عندما تزداد شهوة 

في داخل ۸٣٥۷٤ءءأجR‏ والجواب في اي وقت تريده عن طر يق استخدام العبارة 
Person‏ الفئثة. ااكتب هذا الكود في الفئة : 

Option Explicit 

'تعريف حدٿ جديد 

Event DataHasBeenSent)objTo As CPerson, bSuccess As Boolean( 

اتعريف طريقة جديدة في الفئة 

Public Sub SendData)objTo As CPerson( 
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هنا سنقوم بتفعيل الحدث 

If objTo Is Nothing Then 

RaiseEvent DataHasBeenSent)obj To, False( 

Else 

RaiseEvent DataHasBeenSent)obj To, True( 

End If 

End Sub 

والان ننتقل الى الجهة الاخرى ومعرفة آيفية التفاعل مع هذا الحدث آما تتفاعل 
وغيره اء تتم العملية بنفس الطريقة التي تتعامل ٤ا٣‏ مع احداث الادوات الاخرى آ 
مع الادوات شريطة: 

مع تعریف الکائن. ٤٣ع W۸٤۷‏ - استخدام الكلمة المحجوزة 

- لا يكون الكائن تابع لمصفوفة. 

iاط۴u-‏ ان يتم الاعلان عن الكائن على مستوى الوحدة -أي . 

وسنح اول الاستجابة لاحداث ذلك ٥۴۵۲50۸‏ من الفئة 6۲ا2 سننشئ أسناد باسم 
الكائن» في نافذة النموذج اأكتب هذا الكود: 

Option Explicit 

Dim WithEvents Caller As CPerson 

Private Sub Form_Click() 

Dim Khaled As CPerson 

Set Khaled =New CPerson 

”رJltخ"‎ = Khaled.sName 

Caller.SendData Khaled 
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End Sub 

Private Sub Form_Load() 

Set Caller =New MyClass 

End Sub 
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Private Sub Caller _DataHasBeenSent)objTo As CPerson, bSuccess As Boolean( 
If bSuccess Then 

CPerson.sName " :ىلJ| "تم ارسال البيانات بنجاح‎ Msg 80x 

Else 

Ms980×‏ "لم اتمکن من ارسال البیانات” 

End If 

End Sub 

ملاحظة: لا يوجد داعي لكتابة اسم الحدث الطويل بلوحة المفاتيح» فبمجرد 

انتقل الى القائمة كأ٣ع۸۴۷ Wi‏ تعريفك للسطر الذي توجد به آلمة 

في اعلى يسار نافذة التحریر حتى ترى ×80 0٥طK0۳‏ المنسدلة 

مع باقي اسماء الادوات الموجود ة في ١عااة€1y‏ اسم الكائن 

النافذة. 

ء الذي er_DataHasBeenSentااCa‏ متثتال مبسط جدا يوضح طريقة الاستجابة للحدث 
endaaكيتم‏ تفجيره بمجرد نجاح الطريقة . 

القاء الاحداث: 

تستطيع تطبيق # أ القاء الاحدات كا١‏ ع۴۷ Wİ] ٣‏ عن طريقة الكلمة المحجوزة 

> وهي عملية رمي الاحدات من اسناد او اداة الى فiئة Event Multicasting xliwl‏ 
آخر بمجرد تفجير الحدث وقبل ان تنفيذ اآواده . سأوضح الفكرة بالمتال القديم 
الموحود في الفصل الثاني "النماذج والادوات " وبالتحديد عند فقرة "اللسيطرة على 
"» تلاحظ ان الكود المستخدم ×80×٠المدخلات"‏ التابعة لفقرة "اداة النص 

منذ البداية - انه من غير-للسيطرة على | لمدخلات ان طويل جداء وقد اتفقنا 
المعقول استخدام آل هذه الاآواد للتحقق من القيمة التي يكتبها المستخدم في 
خانة النص» ولكن هنا سنستخدم الكود مرة واحدة فقطء وسنضعه في فئة باسم 
:CNum TextBox‏ 

'الاداة التي ستلقي احداتها الينا 

Public WithEvents TextControl As TextBOX 

'اآواد تمنع المستخدم من كتابة الا الارقام 

Private OldText As String 

Private OldSelStart As Long 
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Private Sub TextControl_GotFocus() 

'عندما يكون الترآيز على الاداة 

'لابد من حفظ قيمتها 

OldText =TextControl. Text 

OldSelStart = TextControl.SelStart 

End Sub 

Private Sub TextControl_Change() 

'متغير يمنع استدعاء الاجراء تراجعيا 

Static DExitNow As Boolean 

If bExitNow Then Exit Sub 

If Not IsNumeric)TextControl. Text (Then 

'المفتاح المدخل ليس رقم 

اقم باعادة عرض القيمة القديمة 

bExitNow =True 

TextControl. Text =OldText 
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bExitNow =False 
TextControl.SelStart =OldSelStart 
Else 

'القيمة المدخلة رقمية اذا 


ا 


بحفظها 
OldText =TextControl. Text‏ 
OldSelStart = TextControl.SelStart‏ 
End If‏ 
End Sub‏ 
Private Sub TextControl_KeyDown)KeyCode As Integer, Shift As Integer(‏ 
OldSelStart = TextControl.SelStart‏ 
End Sub‏ 
Private Sub TextControl_KeyUp)KeyCode As Integer, Shift As Integer(‏ 
OldSelStart = TextControl.SelStart‏ 
End Sub‏ 
Private Sub TextControl_MouseUp)Button As Integer, Shift As Integer, _‏ 
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X As Single, Y As Single(‏ 
OldSelStart = TextControl.SelStart‏ 
End Sub‏ 
Private Sub TextControl_Click()‏ 
OldSelStart = TextControl.SelStart‏ 
End Sub‏ 
جديدة لا تقبل الا الاعداد. فلا يوجد ٠۴×80×‏ والان في آل مرة تريد انشاء اداة نص 
داعي لكتابة آل الاآواد السابقة» وانما قم بالقاء جميع احداث اداة النص الى الفئة: 
Dim NumText As New CNum TextBox‏ 
Dim NumText2 As New CNum TextBox‏ 
Private Sub Form_Load()‏ 
Text1 ="0”‏ 
Text2 ="0”‏ 
Set NumText. TextControl =Text1‏ 
Set NumText2.TextControl =Text2‏ 
End Sub‏ 
لا 2أ×ع٠‏ و e×t1ا‏ تمكنا ببساطة شديدة في الكود السابق من جعل الاداتين 
Event Multicasting‏ تقبلان الا اعداد بفضل القاء الاحدات . 
مثال تطبيقي 
بامكانك تطبیق مثات الامتلة وانشاء مثات الفئات حتى تجعل حياتك اسهلء الا 
انني ساآتفي بتطبيق مثال بسيط جدا يتعامل مع الملفات الثنائية. 
File‏ الفنة : 
قد تتعامل آتیرا مع الملفات الثنائية والتي تتطلب دقة في استخدام دوالهاء 
عباراتها واوامرهاء وبكل تاكيد الاخطاء الصغيرة تسبب الى تغيير هيئة الملف مما 
تمكننا من تحرير الملفات C۴٤۴‏ ينتج عنه شوائثب واخطاء وقت التنفيذ . سنصمم فئة 
التنائية بطريقة اسهلء فبدلا من كتابة هذه الاآواد المعقدة: 
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Dim iFree File As Integer‏ 
iFreeFile =FreeFile‏ 
Open “MyFile.TXT” For Binary As #iFreeFile‏ 
اللكتابة الى الملف 
Put #1‏ , , "اسلوب اجرائي مقرف!” 
اللقراءة 
Dim sTemp As String‏ 
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sTemp =String )18, " "( 

Get #1, , sTemp 

Print sTemp 

ما رأيك بكتابة هذه الاآواد: 

Dim MyFile As New CFile 

MyFile.OpenFile "“MyFile. TXT” 

MyFile.PutData‏ "اسلوب أسنادي جمیل” 

Print MyFile.GetData )16( 

لا يقتصر الفرق بين الاسلوب الاجرائي الاول والاسلوب الكائني الثاني على اختصار 
عدد سطور الا آواد فقطء بل حتى في حالات نسيان كتابة الاوامر الضرورية. فمتلا 
مما يؤدي الى اختجاز مساحة عءهاح تلاحظ انني لم اغلق الملف باستخدام الامر 
بالذاارة. اضف الى ذلك احتجاز رقم الملف وعدم امكانية استخدامه لفتح ملف اخر . 
اما مع الاسلوب الكائني» فلا يوجد داعي لان اغلق الملف باستدعاء الطريقة 
تقوم باغلاق ملفاتها تلقاثیا بمجرد موت ۴ا۴٤‏ . لان الكائنات من النوع عاأ۴عsهCl‏ 
ا۴ الكائن. فهذا الكود قد اضفته في حدت التدمير للفئة : 

Private Sub Class_Terminate() 

Me.CloseFile 

End Sub 
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الخاصة باغلاق الملف: عاأ۴عءها€ الذي يقوم باستدعاء الطريقة 

Public Sub CloseFile() 

If Me.iFileNum Then 

Close #iFileNum 

m_iFileNum =0 

End If 

End Sub 

وقد تضيف ۳15٤.٠|اأ۴٤‏ ستجد الكثير من الخصائص التي قد اضفتها في الملف 
التي تحدد |٤1۲50۲10٤٥‏ عشرات الخصائص بقدر ما يحلو لك . خذ متلا هذه الخاصية 
موقع مؤشر القراءة والكتابة من والى الملف: 

Public Property Get ICursorLoc ()JAs Long 

ICursorLoc =Seek)Me.iFileNum( 

End Property 

Public Property Let ICursorLoc)ByVal INewValue As Long( 

Seek Me.iFileNum, INewValue 

End Property 

هذه امتلة على استخدامها: 

MyFile.ICursorLoc =1‏ 'بدایa‏ الملف 

MyFile.ICursorLoc =MyFile.ILOF‏ 'piٍlية‏ الملف 

ع۴ )حتى تحصل على الانجاز الكامل للفئة . 1۴⁄.عل0) راجع الملف 
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اس ستخدام الكائنات 

تعرفت في الصفحات السابقة على الفئات والفكرة منها وآيفية بنائهاء والا ن حان 
دور استخدام الفئات وانشاء الكائنات منها والتعرفق على بعض التفاصيل المتعلقة 
بالكائنات. 

عبارات وآلمات خاصة بالكائنات 

من الضروري التعرف على العبارات والكلمات المحجوزة الخاصة بالكائنات حتى 
تستخدمها الاستخدام الامثلء نبدا مع انشاء الكائنات باستخدام الكلم ة المحجوزة 
:New‏ 

: الكلمة المحجوزة‎ NeW 
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اقuءVi‏ منه» يمكنك ع٥152۸‏ قبل استخدام الكائن عليك بكل تأكيد انشاء نسخة 
ولن اتحدٿ اjecزb CreateObject, 6e0‏ من انشاء الکائثنات بدالتین هما 6a٤‏ 

"» والطريقة الاخرى 00۷ 1 عنهما الا فقي الفصل التاني عشر "برمجة المكونات 
سواء مع NW‏ التي تمكنك من انشاء الكائنات هي باستخدام الكلمة المحجوزة 
tه5تصريح‏ الكائن او مع العبارة : 

Dim Turki As New CPerson 

Dim Khaled As CPerson 

Set Khaled =New CPerson 

من الاشياء العجيبة جدا جدا والتي تغالط المنطق البرمجيء» ان عملية انشاء الكائن 
مثل الكود 01۳ أي مع عبارةقفي نفس وقت التصريح "6W‏ باستخدام الكلمة 
التابع للكائن ! ولن يتم ع7آاةآا١1_ءءها€‏ السابق- لا تؤدي الى تفجير حدتث الانشاء 
بالنسبة لي - هو-تفجيره حتى تستخدم الكائن في اآوادك . والسبب الغريب جدا 
لن يقوم فعليا بانشاء الكائن حتی تذآره وتستخدمه في |اآوادك. |825 اھںءا۷ ان 
عند التصريح لانشاءة! ۷W‏ بالرغم من اننا استخدمنا الكلمة المحجوزة 
خeكالعبارة‏ : 

في العادة لاسناد أستاد الى آخر: ا56 تستخدم العبارة 

Set Khaled = Turki 
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عند اسناد الكائنات. لانك ان لم تستخدمها قد ا56 من الضروري استخدام العبارة 
و Uk‏ تظهر لك ر سالة خطأً او حتى نتائج غير متوقعة؛ فلو افترضنا ان الكائنين 
> وقمت باسناد قيمة الكائن الاول ٠2۳١ء‏ لهما خاصية افتراضية واحدة هي dعاج!)‏ 
tع5الى‏ الثاني دون استخدذام العبارة : 

Khaled =Turki 

فانك في الحقيقة لم تسند الا قيمة خاصية الكائن الاول الافتراضية الى الخاصية 
الافتراضية للكائن الثانيء أي ان حقيقة الكود السابق هي: 

Khaled.sName =Turki.sName 

: لماعملا]s‎ 

تستخدم هذا المعامل لمعرفة ما اذا أنا المتغيران يشيران الى نفس الكائن: 

If khaled Is Turki Then ... 

ويمكنك ايضا معرفة ما اذا ان الكائن حي يرزق ويتبع لفئة او لا: 

If Khaled Is Nothing Then ... 

اما معامل المساواة فارجو ان تنسى فكرة استخدامه للتحقق من مساواة 
الكائنات. فالكود التالي: 

N If Khaled =Turki Then ... 

لا يقارن الا الخصائص الافتراضية -ان وجحدت- للكائنات» وانك اكتبت: 

If Khaled.sName =Turki.sName Then ... 

: العبارة‎ ry pe0 ... ئ[‎ 

تمكنك هذه العبارة من اختبار نوع الفئة التي تمتثل الكائن: 

If TypeOf Turki Is CPerson Then ... 
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If TypeOf MyCtrl Is TextBox Then 

MyCtrl. Text ="...” 

Else 

MyCtrl.Caption ="...” 

End If 

: alll TypeName 

تعود بقيمة حرفية تمتثل اسم الفئة التابع لها الكائن: ع٠۳‏ ةN١عمرآ‏ الدالة 

Print TypeName) Turki (` CPerson 

Print TypeName)Text1 ( TextBox 
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: للقيمة‎ Nothing 

اليه: و١‏ 1†هN‏ بامكانك الغاء الكائن في أي وقت بمجرد اسناد القيمة 

Set Khaled =Nothing 

المزيد من التفاصيل حول موت الكائنات ستقرأها قريبا. 

ماهي حقيقة الكائن؟ 

قى البدابة اود ان اعرف ماهو الكانن -متغير الكائن ان صح التعبير - يا ترى؟ والجواب 
بتكل ساطة : متغير الكائن عبارة عن منطقه موجودة قى الذاارة تحمل يانات 
اة بذلل اكا .قد تكون اة الال و طة م مدا تف الراات 

% ! ق متغفير الكائن مهما 100 الا ان الاجابة السابقة مع الاسف الشديد خاطئة 91ا 
بت ) لانه عبارة عن مؤشر 32 بایت (في نظم 4 أن نوعه فان حجمه لا يزيد عن 
الى منطقة قعظالذاارة تحمل بيانات تتعلق بذاك الكانن والدلبل راقب هذا الكود: 
Dim X As New MyClass‏ 

Dim Y As New MyClass 


'يشيران الى نفس الكائن 

Set Y =X 

168 

Y.Value =100 

` Y.Value =100 

Print Y.Value 

X.Value =200 

` Y.Value =200 !! 

Print Y.Value 

فان المنطقة من الذاآرة التي أن يشير لها ×= ۲ ا56 عندما يتم تنفيذ السطر 
۷اصبحت نفس المنطقة التي يشير لها المتغير -الكائن- ×المتغير -المؤشر- 

فان 200= عuا۷a.×‏ والدليل على ذلك انني عندما قمت بتعديل قيمة الخاصية 
متغيران (أسنادان» مؤشران ) ۷ و × تأثرت بسبب التعديل وذلك لان عںاة۷.۷ الخاصية 
× يشيران الى نفس المنطقة من الذاآرة التي تحتوي على بيانات تتعلق بالكائن 
ولیس منطقتین مختلفتین. وبکل تأکید سالا ف ۵ عه الم فة التي أتت 

ما هي اخبارها یا تری؟ اخبارها يا قارئي العزيز في المشمش ! ۷ مخصصة للكائن 
لانها قد اختفت من الذاارة وانتهت أي بعبارة لغوية ماتت وستعرق السبب لاحقا. 
صورة الكائن د الذاآرة 

الكائنات ليست آالمتفغيرات العادية فهي تحجز لنفسها منطقتين في الذاآرة الاولى 
بايت - والثانية خاصة لبيانات 4 خاصة لمؤشر بيانات الكائن في الذاآرة -خجمه 

فلا نحتاج الا وما او ng‏ الكائن نفسه . اما عندما تعلن عن متغير عادي آ 
4 لمنطقة واحدة بالذاآرة خاصة بقيمة المتغير باستتثناء المتغيرات من نوع 
فهي تحتاج الى منطقتين من الذاآرة مثل الكائنات. 

Data‏ عcعnه1nst‏ المنطقة التانية التي يحتجزها الكائن تعرفق بمنطقة نسخة البيانات 
> وقسم خاص ءا2١۷‏ والمقسمة الى تلاتة اقسام : قسم خاص بالمؤشر Area‏ 

. وفيما يلي ۸۲۴۵ هaاة0‏ . وقسم خاص بالمتغيرات التابعة للكائن ۲٤ا٣‏ اه بالعداد 
تفاصيل هذه الاقسام: 

: رشۇؤملا/اabام‎ 

و 0M‏ بقدر ما تهم مبرمجي ء|أكة6 اaاءا۷‏ تفاصيل هذا المؤشر لاتهم مبرمجحي 
عبارة عن مؤشر الى ترآيب في منطقة عااة ۷۲ ++ . لکن ما استطيع قوله هو ان٣٤‏ 
- وبداية آل اج راء حتى كله۸امM‏ اخرى بالذاآرة تمتثل مواقع تنفيذ الاجراءات -الطرق 
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التابعة للکائنات تشیر الى نفس الترآیب ۷۲۵1٥‏ یتم تنفیذ اآواده . آل مؤشرات 
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مستقل خاص عءاطة۷1 في حالة آون الكائنات من نفس الفئة . فلكل فئة جدول 
عاabا۷‏ باجراءات تلك الفئة» ولكل أسناد مؤشر خاص به یشیر الى الترآیب 
المتوافق مع الفئة المنشأً منهاء فهنا: 

Dim X As MyClass, Y As MyClass, Z As YourClass 

٤ا‏ تشير الى ترآيبين Z‏ و ۷ و × خاصة للكائنات ا۷12 توجد تلات مؤشرات 
ours‏ و . My Cass‏ خاصین للفئتین 

: دادعلl‎ Counter 

بايت وهو عبارة عن عداد يمتثل عدد 4 القسم الثاني من هذه المنطقة حجمه 
المؤشرات التي تشير الى هذه المنطقة . يبداأً العداد بالقيمة واحد عندما تنشئ 
الكائن» ويزيد آلما وجد مؤشر اخر يشير الى ذلك العداد . عندما يصل العداد الى 
الصفر (اي لا يوجد مؤشر يشير الى تلك المنطقة ) فان المنطقة يتم تحريرها من 
الذاارة وتختفي»ء وهذا جواب واضح للسؤال متى يموت الكائن؟ راقب هنا: 
Dim X As MyClass, Y As MyClass‏ 

'العداد يبدا بواحد 

Set X =New MyClass 

والان العداد بائنان] تھ 


'العداد الان ينقص بواحد 

Set X =Nothing 

العداد الان بصفر مما يؤدي الى 

"موت الكائن 

Set Y =Nothing 

: البيانات‎ ةَقطنمDطata‎ Area 

والستاتيكية ءأاالا۴" وهي المنطقة التي تحتوي على جميع المتغيرات العامة 
الخاصة بالكائن. بكل تأكيد يختلف حجمها من أسناد لآخر بالاعتماد على عدد عأأة†S‏ 
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n9اوحجم‏ المتغيرات التابعة له . فمتلاء اذا احتوى الكائن على متغيرين من نوع › 
بايت. 8 فان حجم هذا القسم هو 

مثال توضيحي: 

اود ان اوضح الاقسام التلا تة بمتال مع شكل توضيحي له . بافتراض ان لدينا فئة 
بالاضافة الى MyMet 0d2‏ و MyMethod1‏ تحتوي على طریقتین 25sا€¥M‏ باسم 
. فالكود التالي: 2عuاVa‏ و 1عuاVa‏ باسم ءااطلا۴ متغیرین عامین 

Dim X As MyClass, Y As MyClass, Z As MyClass 

أحجز وانشاء نسخ للكائنات في الذاآرة 

Set X =New MyClass 

Set Y =X 

Set Z =New MyClass 

'تذآر ان آلاهما مؤشران لمنطقة واحدة 

XY 

X.Value1‏ = "ترآي 

X.Value2‏ = ا مري“” 

تعيين قيم لكان 


u1ا2./a‏ = ”عباس“ 

2 = "السررع” 

:1- 5يمكن ان نوضح المنطقة الخاصة بالكائنات آما في الشكل 
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> ولكن استيعابها مسألة1- 5 قد لا تهمك آثيرا المربعات الموجودة في الشكل 
عنوان الفقرة التالية - او حت ى الاحتراف في- و9١أك١١81‏ ضرورية لتعريف فكرة الربط 
وهو ما سنتطرق إليه في الفصول اللاحقة. 00٥۷‏ برمجة مكونات 

Binding‏ الربط 

الكائن سواء أتت خصائص او طرق ك۲عط"۳ع« عملية الربط هي باختصار ربط اعضاء 
. من عااة ۷۲ بالمؤشر الذي يمتل الكائن وتحديد مواقع الاجراءات في الجدول 

لكن عملية عااة۷۲ المعروق ان الطرق موجودة في مواقع في الذاآرة في الجدول 
الوصول لها ليست مباشرة احياناء راقب هنا: 

Dim X As Object 

If Y =True Then 

Set X =New MyClass 

Else 

Set X = New YourClass 

End 

X.MyMethod 
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> ولكن ماه و× التابعة للكائن ك١ه‏ ۷,<« في السطر الاخير قمت باستدعاء الطريقة 
؟ لا نستطيع معرفة ذلك كsةاu۲€ZاهY‏ ام الفئة كئةا€¥M‏ ؟ هل هو تابع للفئة× الكائن 
> لانه يحتاج الى معرفة ءأsة8‏ اuaءا۷‏ الا فقي وقت التنفيذ حتى تتضح الامور ل 

او لاءوالتي MyMe†٣0٩‏ ما اذا أن يوجد به دعم للطريقة عاطة۷۲ ترآيب الجدول 
بدورها ستأخذ وقت#اطؤل بكثير من الو صول الوىهاجراء لكائن معرق النوع سابق |. 
لذلكء اتكلم عن نوعين من انواع الربط هما: 

: الربط المبکر‎ Early Binding 

والتي تقوم بتحديد ع٣[‏ و١1اأامصه‏ عملية الربط المبكر تتم في وقت الترجمة 
مما يؤدي الى وصول اسرع بكثير لاعضاء الكائن : طبعاع‌ااة ۷١‏ مواصفات الترآيب 
لعمل ذلك لابد من ان تحدد بوضوح نوع الفئة التي سيمتلها الكائن. 

التصريح الواضح لنوع الكائنات 

Dim X As MyClass, Y As YourClass 

Set X =New MyClass 

'بافتراض وجود اتصال 

„1 ` COM 

'طبعا ابطا لکن يعتبر ربط مبكر ايضا 

Set Y =CreateObject )"YourServer.YourClass”( 

: الربط المتأخر‎ ate Binding 

في وقت التنفيذ في آل مرة تصرح فيها ۷۲۵1٥‏ هنا يتم تحديد مواصفات الترآيب 
المناسب للكائن» عاطة١۷عن‏ أسناد جديد» مما يؤدي الى بطء في تخديد الجدول 
او أ زط0 والتحقق من وجود الطرق المستدع اه. المتغيرات المعرفة من نوع 

هي متغيرات لن تستطيع ان تربطها الا عن طريق الربط المتاخر. Varia‏ 

'تصريح غير واضح للكائنات 

Dim X As Object, Y As Variant 

Set X =New MyClass 

'بافتراض وجود اتصال 

` COM 

Set Y =CreateObject )"MyServer.YourClass”( 
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ولادة وموت الكائن 

New‏ ولادة الكائن هي اللحظة التي تشن الكائن به | باستخدام الكلمة المحجوزة 
> ويموت الكائن أءعز0b†ع‏ و ectزCreate0b‏ او الدوال الاخرى التي لم اتطرق لها 
بمجرد تحرير المنطقة الخاصة به في الذاآرة آخروجه عن مجاله او تعيين القيمة 
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له. اعرض لك بعض التفاصيل الدقيقة والخاصة عن انشاء وانهاء الكائن: و١iطNot‏ 
انشاء الكائن واستخدامه: 

بحجز منطقة في الذاآرة ٤أكئة8‏ اهلاوا۷ عندما تقوم بانشاء الكائن لاول مرة يقوم 
Basic‏ امVisu‏ للفئة التي تمثل ذلك الكائن . بعد ذلك. يقوم ٥ا۷۲‏ تمتل الترآيب 
Data Area‏ وnstancin‏ بحجز منطقة اخرى بالذاآرة خاصة بمنطقة نسخة البيانات 
والتي يقوم بتقسي مها الى تلاتة اقسام ومن ثم تعبئة المعلومات المطلوبة في 
eاab r‏ للمؤشر عاطاة۷۲ مكانها المناسب في آل قسم . القسم الاول لوضع عنوان 
€iاss_1nitiaهاC‏ والثاني يبدأ عداده . ولا يبدأ في القسم الاخير الا بعد تفجير الحدث 
عاab‏ الان ذلك الاجراء اصبح عنوانه معروقف بفضل تعريف المؤشر . 

اما في حالة انشاء أسناد مرة اخرى» فان العملية تتم بشكل اسرع وذلك بسبب ان 
فهي موجودة اة ۷1لا يقوم بحجز المنطقة بالذاآرة والخاصة ب عأك82 اهVisu‏ 
وجاهزة لای اظکاد چ يد سينش أ من نفس نوع الفئة السابق . أخيرا» تستطيع 
استخدام الکائن واستدعاء طرقه و تعیین خصائصه وحتی انتظار احداته. 

نهاية وجود الكائن بالذاآرة: 

erminateا_assاC‏ بتفجير الحدث ءأsة8‏ اةuءآ۷ا‏ عندما يصل العداد الى صفر سيقوم 
والخاص بالكائن متيحا لك فرصة اخيرة لعمل أي شئ قبل موت الكائن ومن ثم 

من الذاآرة وفقط. أي لا [stn cinو ٥ا A۲٤2‏ يقوم بتحرير منطقة نسخة البیانات 
لانها ستكون بالذاآرة عااة۷1 بتحرير منطقة الترآيب 8251٤‏ اھuءآ۷‏ تتوقع ان يقوم 
واعتقد ان هذا سبب واضح في آون عملية انشاء ۴٣۵‏ حتى نهاية البرنامج بعبارة 
عا۷ab‏ الكائن مرة اخرى اسرع بكثير من المرة الاولى بسبب عدم ضرورة انشاء ال 


من جدید. 
. ففي هذا الحدث تستطيع فعل ما عأة٣أ۴۲۳٤٠_ءءها€‏ لدي نقطة اخرى حول الحدث 
تريد قبل موت الكائن لكن من المهم معرفة انك لن تستطيع اعادة حياة الكائن عن 
طريق هذا الحدث . الفكرة ببساطة هي آالانسان عتدما يحختضر» فان من رحمه الله 


ييسر له الشهادة وقت الاحتضار وينطق بها ومن تم يموت لكنه لن يستطيع العودة 
الى الحياة من جديد -الا بمعجزة الخالق الذي يحيي ويميت بكل تاكيد - اما مع 
فرصة اخيرة لعمل ما تريد قبل ان عأة”أ"۴۲۳_ءءها€ فيوفر لك الحدث Basi‏ اVisua‏ 
يموت الكائن لكنك لن تستطيع اعطائه الحياة من جديد. 
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نقطة اخرى حول موت الكائنات -نسال الله طولة العمر - هي إن الكائنات لها نظام 
يمنع موت الكائن اذا ما أن احد اجراءاته قيد التنفيذ . وبمعنى اخر. لنفترض ان احد 
مؤشر عام ) × (اآيد المتغير 9١أ1†ه۸=‏ × اعS‏ اجراءات الكائن يقوم بقتل نفسه 
راقي جدا جدا ويعلم آيف يتعامل مع هذه النوع من ا825 اھuءا۷‏ فلابد ان تعلم ان 
الكائنات!» فسيقوم باسلوب مهذب جدا اعطاء فرصة للكائن حتى ينهي اجراءه الذي 
وقتل الكائن . احسن الله ٤أ٣ ۴۲٣‏ ا_ءكها) يتم تنفيذه ومن ثم يقوم بتفجير الحدث 
عزاام. 

ارسال الكائن بالمرجع او بالقيمة 

" وبالتحديد في قسم الاجراءات 8451٣٧‏ تحدتثت في الفصل التالث "لغة البرمجة 
والدوال عن الفرق بين ارسال مرجع المتغير الى الاجراء وارسال قيمة المتغير الى 
الاجراء» وذآرت بان المتغيرات المرسلة بالمرجع يمكن لك التعديل في قيمها من 
نفس الاجراء. ولكن عند الحديث عن الكائنات فحاول نسيان الفرق بين الارسال 
الكائن ۲٤ا”‏ اه۴ بالمرجع والقيمة. لان الكائن في آلا الحالين سيرسل مؤشر 
وسيتمكن الاجراء من تعديل جميع محتويات الكائن. 

فهو ۴ع BR‏ والكلمة المحجوزة اة8/۷ اما الفرق بين استخدام الكلمة المحجوزة 
يؤدي الى انشاء ا8۷۷3 فرق تقني بحت اذ ان ارسال الكائن بالكلمة المحجوزة 
التابع لمنطقة بيانات ٤01١6۲‏ نسخة جديدة من المؤشر تؤدي الى زيادة العداد 
فان المؤشر هو نفس المؤشر الذي ع6۷۸ الكائن» اما الارسال بالكلمة المحجوزة 
ارسل الى الاجراء» هذا الكود قد يوضح الفرق: 
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Sub MySub (obزPerson As Person‏ ( 'الارسال بالمرجع 
Set obزPerson = Nothing‏ 'تؤدي الى موت الكائن المرسل 
End Sub‏ 

Sub MySub (ByVal! obزPerson As Person‏ ( 'الارسال بالقیمة 
Set objPerson = Nothing‏ 'لا تؤدي الى موت الكائن المرسل 
End Sub‏ 
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تعدد الواجهات والورائه 

و ا لا ع الل الا ا وات ات الات اله 

مستقلة الما ات امانة اعادة اتد امها قى نطببقات اخرک. الا انك قى 

حالات آثيرة تود توزثك الإآواد بين عدة فثات وتحاول تطبيق روابط بين الفئات 
عليك عناء اعادة كتابة الاأواد المتكررة وتسهيل حياتك البرمجية بشكل افضل . 

هذا الفصل سأتطرق الى مواضي ع متقدمة في البرمجة أسنادية التوجه lL‏ 
مبد أذ الواجطك مه الوطفقيواختم الفصل بالتحدث عن فكرة الاهرام الكائنية. 


تعدد الواجهات 

من المبادئ التي لإبد من توفرها في أي لغة ۳كأطم۲ه "اه۴ مبدأً تعدد الواجهات 
يدعم الفكرة الاساسية عأكة8 اهاءا۷ . ومن حسن الحظ 00۴ برمجة أسنادية التوحه 
من هذا المبد أ» سأشرح قي هذه الفقرة طريقة تطبيق مبدأً تعدد الوجهات آما 
Abstract Classes‏ اتطرق الى الفئات المجردة . 

التعريف البرمحي لمبدأً تعدد الواجهات هو : اسماء متشابهة لكن انجازات مختلفة 
. المقصد من ذلك« Same names but different implementati01s عıٰ¦bتwسi liil‏ 
استدعاء طرق وخصائص متشابهة الاسم لفئات مختلفة البتيان أي بانجازات 

. آلا الفئتين C٥2۲‏ والتانية ٥۴8۲507‏ مختلفة. متال. نفترض ان لدينا فئتين الاولى 
> وبالتالي نستطيع استدعاء 10۷٥‏ يوجد بهما طريقة خاصة بالتحريك تسمى 

. لكن القضية هنا ان عملية C2. M0۷‏ و Person. Move‏ الطریقتین باسم ائھما: 
انجاز الطريقة مختلفة رغم تشابه اسمائهاء فمن المعروق ان الشخص يتحرك عن 
طريق قدميه اما السيارة فبلا شك تتحرك عن طريق الاربع عجلات بهاء وهذا هو 
مبدأً تعدد الوجهات. 

المزايا التي تجدها من تعدد الواجهات آثيرة ولعل الميزة الحقيقية هي انها تختصر 
وغيره |. فقد تلاحظ ان مبدأً ٥28‏ ام5 عليك الكثير من مئات حمل الشرط آ 
تعدد الواجهات مطبق في الادوات التي تضعها على نافذة النموذج وذلك بسشبب 
وغيره اء N۳۴‏ او اعا وجود الكثير من الخصائص المشترآة بين الادوات آخاصية 
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فقي وسط ٠٠×80×‏ فلو طلبت منك احد الايام كتابة اجراء يقوم بمحاذاة اداة النص 
النافذة. فستكون حصيلة اصابعك الناعمة الكود التالي: 

Center TextBox ) txtTextBox As TextBox ( 

txtTextBox. Move ScaleWidth -txtTextBox.Width / (2, _ 

ScaleHeight -txtTextBox.Height / (2 

End Sub 

ولو أتت علاقتنا حميمة جدا وطلبت منك اجراء آخر يقوم بمحاذاة اداة العنوان 

> فاعتقد انك ستكتب الاجراء التالي: اعمطةا 

CenterLabel )IblLabel As Label( 

IblLabel.Move ScaleWidth -IblLabel.Width / (2, _ 

ScaleHeight -IblLabel.Height / (2 

End Sub 

اجراء اخر لتوسيط الادوات الثمانية عشر 18 ولا اعتقد انك على استعداد لكتابة 
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الاخرى حتى لو أتت علاقتنا عاطفية ! بل ستكون مبرمج أسنادي التوجه اآثر وتكتب 
اجراء واحد يمكن ان يستقبل أي اداة مهما أن نوعما: 

CenterControl )ctrlControl As Control ( 

ctrlControl.Move ScaleWidth -ctrlControl.Width / (2, _ 

ScaleHeight -ctrlControl.Height / (2 

End Sub 

من الاجراء السابق يتضح لنا جمال. قوةء ابداع» مرونة» فن»ء وسحر مبدا تعدد 
تحتوي على الطريقة اه٣أ٣ه)‏ لها واجهة اخرى باسم ٠٠۴×860×‏ الواجهات فالفئة 
هي عبارة عن فئة لكنها اه٣أ"ه)‏ حالها آحال جميع الادوات الاخرى . الواجهة M0۷e‏ 
Abstract Class Control‏ لا تحتوي على اية اآواد. لذلك تسمى فئة المجردة 

> فحتى تستطيع ان تحقق مبدا تعدد الوجهات لابد ٤٤۲۴2عأام1وتحتوي‏ على واجهة 
من وجود فئة مجردة والتي تعرف الواجهة للفئات الاخرى منها. 

تطبيق عملي: 

والتي تمتل رحلة طأ1۲۲ والان لنبدا بالتط بيق» سننشئ فئة مجردة (واجهة) باسم 
وتعريف طريقة بها لمعرفة التكاليف: 
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Function GetCost)iDistance As Integer (As Integer 

الا تکتب شيئا هنا فهذه مجرد واجهه 

End Function 

بتمييز الواجهة عن الفئة عن طريق 00۴ ملاحظة: جرى العرفق عند مبرمجي 

قبل اسم الفئة» اما الفئات فما زال حرق 1 اضافة حرف البادئثة 

هو الاآثر شعبية. € البادئة 

: والان انشاء فئة اخرى وهي تمتل رحلة بالسيارة لا تنسی ان تسمیھا ب‎ ٣ 
الا بد ان تضيف هذه العبارة حتى‎ 

'نستخدم الواجهة التابعة لفئثة 

` ITrip 

Implements ITrip 

Private Function ITrip_GetCost)iDistance As Integer (As Integer 

هذه الدالة مأخوذة من واجهة 

' ITrip 

ITrip_GetCost =iDistance *15 

End Function 

ملاحظة: لا يوجد داعي من كتابة الاجراء السابق بنفسكء فبمجرد كتابة 

بامكانك الوصول الى آاف ة اجراءات كأرعمصmعامص1‏ الكلمة المحجوزة 

الموجودة في اعلى نافذة ×ه08طا"K0‏ الواجهة عن طريق الاداة 

محرر الاآواد. 

aneا۴ايضا‏ فئة اخرى تمتل رحلة بالطائرة : 

الا بد ان تضيف هذه العبارة حتىی 

'نستخدم الواجهة التابعة لفثة 

` ITrip 

Implements ITrip 

Private Function ITrip_GetCost)iDistance As Integer (As Integer 

هذه الدالة مأخوذة من واجهة 
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' ITrip 

cost =iDistance *100‏ 6et_م|ا‏ ا 'لاحظ زيادة سعر التكلفة هنا 

End Function 

> ولاستخدامها انتقل الى ٥١ا۴‏ و ۲ة والفئات م11۲1 انتهينا من تصميم الواجهة 
نافذة النموذج تم ضع اداة زر اوامر وااكتب هذا الكود: 

Private Sub Command1_Click() 
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Dim NewTrip As ITrip 

Set New rip =New CCar‏ 'الرحلة الان بالسیارة 

Print New Trip.GetCost)50( 

Set New rip =New CPlane‏ 'اصبحت بالطائرة 

Print New Trip.GetCost)50( 

1 End Sub 

ستلاحظ اختلاف التكاليف بين رحلة با لسيارة واخرى بالطائرة ولو اتت المسافة 
ايلو متر). 50متشابهه ( 


- على اشتقاق 0٥۲۷٥۴١‏ الفئة المشتقة-هي قدرة الفئة ع٣٤٣‏ هام1۸ الوراتة 

- بحيث تتمكن الفئة المشتقة من الوصول ككةا€ م82 اعضاء فئة اخرى -الفئة الام 
الى جميع اعضاء (طرق/خصائص) الفئة الام . مما يؤدي الى تطوير الفئة الام واآمال 
نواقصها. فمثلا لو أن لدينا الفئة س ونريد اضافة الخاصية ص فيهاء فلا يوجد داعي 
من اعادة بناء الفثة س من جديد» وانما ننشئ فئة ع تحتوي على الخاصية ص 
وتكون الفئة ع مشتقة من الفئة س بحيث تمتلك آافة خصائصها الاخرى . لتوضيح 
الفكرة» افترض ان لدينا هذة الفئات الثلات: 

1 خصاتصها: "دC۴ers0) اسم الفئة:‎ .Name و‎ Age طرقھا:‎ .Move 
2 طرقھا: orزMa. خصائصضھا: ntعCStud) اسم الفئة:‎ .changeCcoاlege‎ 
3 اسم الفئة:‎ )cWor)km"2 طرقھا: aryاSa. خصاتصھا:‎ .changeDepartment 
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مشتقة CStude†‏ و CWorkman‏ سنطبق عليها مبدأً الوراثة الان بجعل الفئتين 
قابلتان CWorkma2َn‏ و Student‏ . اي إن الفئتان C۴٤۲50۸‏ ووارتة لاعضاء الفئة الام 
. لذلك جميع هذه الاآواد صخيحة من €C۴۴۲50١‏ للوصول الى اعضاء الفئة الام 
الناحية المنطقية: 

CStudent.Name‏ = "محمد" 

CStudent.Age =25 

CStudent.Move() 

CStudent.Major‏ = "علوم الحاسب” 

CStudent.ChangeCollege() 

"alJl,e" = CStudent.Name 

CWorkman.Age =30 

CWorkman.Move() 

CWorkman.Salary =10,000 

CWorkman.ChangeDepartment() 

قابلة للوصول الى †"eعCS†ud‏ و Workman‏ والسبب في ذلك. ان الفئات المشتقة 
لا Person‏ . والعكس غير صحيح! فالفئة الام ۴۴۲507) جميع عناصر الفئة الام 
تستطيع الوصول الى اعضاء الفئة المشتقة منهاء فلا تكتب في احد الايام شيئا من 
هذا القبيل: 

CPerson.Salary =20,000 

و 

CPerson.ChangeCollege() 

المزيد ايضاء الفئات المشتقة ترت من الفئات المشتق منها (الفئات الام ) فقط . 

لا يمكن لاي فئة منھا 37^ Wor)‏ و Student‏ ففي متالنا السابق. الفئات 
الوصول الى اعضاء الفئة الاخرى فلا تكتب مثل هذا: 

CStudent.Salary =10,000 

„ CWorkman.ChangeCollege() 

فقط . وهذا باختصار مفهوم مبدا الورا تة في C۴۴۲50۸‏ لانهما مشتقان من الفئة الام 
جميع لغات البرمجة والذي يقدم لك الكثير من اختصار كتابة الاآواد والتسهيل في 
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واردت ككةا€¥M‏ عملية التنقيح و تطوير الفئة نفسه | ايض |» تخيل متلا ان لديك فئة 
تطويرها باضافة عناصر جحديدة لهاء آل ذلك يمكن ان يتم عن طريق اشتقاق فئة 
اخرى جديدة منها واضافة اللازم. 

Basic‏ اVisuaمحاآاة‏ الوراثة ب 

لا يدعم مبدأ الوراثة بشكل ضمنيء والذي سنفعله ة8 ااءأ۷ للاسف الشديد 
هنا عملية محاآاة مبدأ الوراتة على الفئات . الفكرة في محاآاة الوراثة سهلة » فبما 
ان الفئات المشتقة سترث نفس اآواد الفئات الام فلماذا لا نقوم بنسخ جميع 
محتویات الفئة الام ولصقها في الفئات المشتقة . لتطبيق ذلك انشئى فئة باسم 
وااكتب فيھا هذا الكوڌ: CPers07‏ 

Private m_sName As String 

Private m_iAge As Integer 

Sub Move() 

×15980 "تم تنفيذ اجراء التحررك" 

End Sub 

Property Get iAge ()As Integer 

iAge =m _iAge 

End Property 

Property Let iAge )iNewValue As Integer ( 

m_iAge =iNewValue 

End Property 

Property Get sName ()As String 

sName =m_sName 

End Property 

Property Let sName )sNewValue As String ( 

m_sName =sNewValue 

End Property 
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ولصقها 0١۲50عC۴‏ . قم بنسخ جميع محتويات الفئة الام 5S۷ de٣١‏ ولانشاء فئثة ال 
في الفئة المشتقة: 

اخصائص الفئة الام 

Private m_sName As String 

Private m_iAge As Integer 

Property Get iAge ()As Integer 

iAge =m_iAge 

End Property 

Property Let iAge )iNewValue As Integer ( 

m_iAge =iNewValue 

End Property 

Property Get sName ()As String 

sName =m_sName 

End Property 

Property Let sName )sNewValue As String ( 

m_sName =sNewValue 

End Property 

Private m_sMajor As String 

Property Get sMajor ()As String 

sName =m_sName 

End Property 

Property Let sMajor )sNewValue As String ( 

m_sName =sNewValue 
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End Property 

طرق الفئة الام 

Sub Move() 

s980×‏ "تم تنفيذ اجراء التحريك" 

182 

End Sub 

طرق الفئة المشتقة 

Sub ChangeCollege() 

×Ms980"تم‏ تنفيذ اجراء تحويل الكلية" 

End Sub 

: فس الفكرة طبقها على الفئة‎ Norkmn 
اخصائص الفئة الام‎ 

Private m_sName As String 

Private m_iAge As Integer 

Property Get iAge ()As Integer 

iAge =m_iAge 

End Property 

Property Let iAge )iNewValue As Integer ( 
m_iAge =iNewValue 

End Property 

Property Get sName ()As String 

sName =m_sName 

End Property 

Property Let sName )sNewValue As String ( 
m_sName =sNewValue 

End Property 

Private m_lSalary As Long 

Property Get ISalary ()As Long 

ISalary =m_lSalary 

End Property 

Property Let ISalary )INewValue As Long ( 
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m_lSalary =INewValue 

End Property 

طرق الفئة الام 

Sub Move() 

Ms980×‏ "تم تنفيذ اجراء التحريك" 

End Sub 

طرق الفئة المشتقة 

Sub ChangeDepartment() 

s980×‏ "تم تنفيذ اجراء تفيير القسم" 

1 End Sub 

قمنا بعملية محاآاة مبدأً الوراثة. فتستطيع كتابة اآواد مثل: 
Dim X As New CStudent‏ 

Dim Y As New CWorkman 

X.sName‏ = "محمد” 
X.iAge =25‏ 
X.Move()‏ 
X.sMa[ 0٣‏ = "علوم الحاسب” 
X.ChangeCollege()‏ 
Y.sName‏ = "عبدالڵa"‏ 
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Y.iAge =30 

Y.Move() 

Y.ISalary =10,000 

Y.ChangeDepartment() 

علاقة "يحتوي ا 

S0urce‏ المشكلة في فكرة المحاآاة السابقة هي ضرورة وجود الشيفرة المصدرية 
للفئة الام حتى تتمكن من اشتقاق الفئات منه |. اما في حالة آون الفئة في عله) 
متلا- فالعملية معق دة جدا -ان لم تكن مستحيلة . C0١٥۷‏ ملف تنفيذي -آداخل مکون 
باسم 00۴ والحل عن طريق تطبيق علاقة تعرفق في عالم البرمجة اسنادية التوجه 
وهي تنص باختصار على ان الفئة يمكن لها ان تحتوي على ه ك۳ يحتوي على 
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أسناد من فئة اخرى عن طريق تعريف متغير يمثل أسناد لتلك الفئة . الان قم باعادة 
بهذه الطريقة: 21" CW)‏ و Student‏ تصميم الفئات المشتقة 

الفئة الام 

Public objPerson As New CPerson 

Private m_sMajor As String 

Property Get sMajor ()As String 

sName =m_sName 

End Property 

Property Let sMajor )sNewValue As String ( 

m_sName =sNewValue 

End Property 

طرق الفئة المشتقة 

Sub ChangeCollege() 

Ms980×‏ "تم تنفيذ اجراء تحويل الكلية" 

End Sub 

العيب الوحيد في هذه الطريقة هو ان المستخدم لهذه الفئة لن يستطيع محاآاة 
للوصول الى ع٥٠٣2۳١ء.×‏ الوراتة بشكلها الصحيح» فلن يستطيع كتابة العبارة متلا 
اعضاء الفئة الام وانما سيضطر الى استخدام الكائن المحضون في الفئة المشتقة 
X.0bjPerson.sName×وكتابة‏ . 

hel ega tion‏ التفویض 

يبدو ان الحل الامثل هو بجعل أسناد الفئة الام مخفي ومحاآاة جميع اعضاءه قي _.ٍ 
الفئة المشتقةء ومن تم ارسالها الى الكائن» وهذه هي الفكرة الاس اسية من مبد | 
student‏ التفويض» فسيصبح الكود النهائي للفئة المشتقة : 

الفئة الام 

Private objPerson As New CPerson 

"تفويض خصائص الفئة الام 
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Property Get iAge ()As Integer 

iAge =objPerson.iAge 

End Property 

Property Let iAge )iNewValue As Integer ( 

objPerson.iAge =iNewValue 

End Property 

Property Get sName ()As String 

sName =objPerson.sName 

End Property 

Property Let sName )sNewValue As String ( 

objPerson.sName =sNewValue 
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End Property 
Private m_sMajor As String 
Property Get sMajor ()As String 
sName =m_sName 
End Property 
Property Let sMajor )sNewValue As String ( 
m_sName =sNewValue 
End Property 
'تفويض طرق الفئة الام‎ 
Sub Move() 
objPerson.Move 
End Sub 
طرق الفئة المشتقة‎ 
Sub ChangeCollege() 
تنفيذ اجراء تحويل الكلية"‎ مت"Ms980×‎ 
End Sub 
٠ 186 
لكن -مع الاسف - اود ان اخبرك عأكة8 اقعuءا۷ والان قمت بمحاآاة مبداً الوراثتة في‎ 
في هذا المتال فقط ! لانه في حالة آون للفئة الام 100 ان الذي فعلناه صحيح‎ % 
لن تستطيع ١٣ءأامامصراه۴ واجهة فرعية من واجهة اخرى -مبدا تعدد الواجهات‎ - 
الوصول الى اعضاء الواجهة الاخرى للفئة» والحل تجده في الفقرة التالية.‎ 
وراثة الواجهات‎ 
اريد ان ابدأً هنا تقديم محتؤيات المثال الذي سيظهر لنا مشكلة وراثة الواجهات‎ 
وآيفية تلافيه ا سيكون لدينا في هذا المثال واجهة واحدة باسم‎ My 1nterface و‎ 
وفئة مشتقة باسم . ssھا€ع€8as فئة ام باسم‎ Derived Cass 
ةھجاولl‎ IMyInterface مpwlڊ‎ ءlرجl والفئة الام تحتوي ٩10اMyMe تحتوي عل”‎ > 
واخيراء الفئة المشتقة تحتوي على اجراء باسم ٩10اBaseMe على اجراء باسم‎ . 
DerivedMethod ةۈجlو ضع في عين الاعتبار على ان الفئة الام تحتوي على‎ >» 
اي ان الطرق التابعة للكائن من الفئة الام هي ٤٥ه؟١عا١1My1 اضافية من الواج هة‎ 
MyMethod . gBaseMethod 
توضيح المشكلة:‎ 
حتى نقوم بحل المشكلة لابد بكل تأكيد من معرفة ماهي المشكلة . الان سنقوم‎ 
بعملية التفويض -لمحاآاة الوراثة - آما عملنا في الفقرة السابقة وجعل الفئة‎ 
CDerivedClass ليصبح الكود النهائي للفئة ككةا€٣عمsةC8٤ م شتقة من الفئة لام‎ > 
CDerivedClass :g® 
Private BaseClass As New CBaseClass 
'تفويض طرق الفئة الام‎ 
Sub BaseMethod() 
BaseClass.BaseMethod 
End Sub 
طرق الفئة المشتقة‎ 
Sub DerivedMethod() 
'ااکتب ما تریده هنا‎ 
End Sub 
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يبدو ان المشكلة اتضحت لك الان وهي ان الفئة المشتقة لا تدعم الطريقة‎ 
MyMethod ةqجlولl‎ öةعبlتلJl‎ IMyInterface والتي تعتبر احدى واجهات الفئة الام‎ 
٤8asع€اھئs اذا آنت تفكر بتفويض اجراء لعمل ذلك آهذا:‎ . 
Sub MyMethod() 
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BaseClass.MyMethod 

1 End Sub 
فارجو ان توقف القراءة في الحال ! لانك بحاجة ماسة الى معرفة و استيعاب مبدا‎ 
معرف من الفئة ssةا€عsھ6 . فالکكائن s۳ءiامorصymاPo تعدد الواجھات‎ CBase€Cاass‎ 
وليس من الواجهة‎ 1My1٣†ع۲‎ ۴2٤٤ ولن تستطيع عمل ذلك.‎ 

حل المشكلة: 

اتمنى ان تكون المشكلة قد اتضحت لك . يكمن الحل بالالتزام بعملية تضم ين 
في الفئة المشتقة»ء ويصبح الكود النهائي بهذا الشكل: ع٤‏ ه۴ ۲ع†٣1My1‏ الواجهة 
Private BaseClass New CBaseClass‏ 

E IMyInlerfacE 

'تفويض طرق الفئة الام 

Sub BaseMethod() 

BaseClass.BaseMethod 

End Sub 

"تفويض الواجهة الاخرى للافئة الام 

Private Sub IMyInterface_MyMethod() 

Dim TempInf As IMyInterface 

Set TempInf =BaseClass 

r emp1nf.MyMethod‏ "الان يمكنك عمل ذلك 

End Sub 

Sub MyMethod() 

IMyInterface_MyMethod 

End Sub 
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طرق الفئة المشتقة 

Sub DerivedMethod() 

'ااکتب ما تریده هنا 

End Sub 

assingاSubcالتصنیف‏ الفرعي 

۲ بلا شك غير مقبولة بشکل آبير لدى مبرمجي 0٥1٥9310١‏ عملية التفويض 
وبالتحدید مستخدموا مبداً الوراثة بكثرة . الا انها تتميز باعطاءك تحكم اآبر قبل 
تنفيذ الاجراء التابع للفئة الام من داخل الفئة المشتقة . فمث لاء الفئة المشتقة 
تحتوي على هذا الكود: 

Sub BaseMethod() 

BaseClass.BaseMethod 

End Sub 

وتحتوي على متغيرات ١٤)٥١‏ ا۴ نفترض أن الطريقة السابقة عبارة عن دالة 
:Parameters‏ 

Function BaseMethod )X As Long, Y As Long (As Long 

BaseMethod =BaseClass.BaseMethod )X, Y( 

End Sub 

الذي آنت اقصده من التحكم الاآبر هو انك في الكود السابق تستطيع الغاء عملية 
استدعاء الطريقة الموجودة في الفئة الام او تعديل قيم المتغيرات المرسلة 
Value‏ Returnedاو‏ حتى تغيير القيمة التي تعود بها الطريقة ۰ Arguments‏ 

Function BaseMethod )X As Long, Y As Long (As Long 

If X =0 Then 

BaseMethod =0 

Elself Y =0 Then 
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BaseMethod =BaseClass.BaseMethod )X, 1( 

Else 

BaseMethod =BaseClass.BaseMethod )X, Y( 

189 

End If 

End Sub 

essin4اSubc‏ في مبدا الوراتة» تسمى هذه العملية بالتصنيف الفرعي للفئة الام 
> وهي من التقنيات المتقدمة التي توفرها لك لغات البرمجة اسنادية the base class‏ 
اةuء۷i‏ والتي طبقناها بشكل فعال في لغتنا الجميلة ٤آلغة‏ ال ++ 00۴ التوجه 
„Basic‏ 

و ۷8 المزيد ايضا؛ يمكنك تطبيق مبدأً التصنيف الفرعي على جم يع اعضاء مكتبات 
حروق الاعداد الستعشرية التي تعود بها تكون انجليزية ×ع۳ . فمتلا الدالة ۷8۸ 
وقد تكون من المتعصبين الى لغتنا الجميلة بحيت تود إن تعود F۴ » ....B A‏ دائما 
بتعريف ۳٥×‏ الدالة بالحروق العربية» فتستطيع تطبيق مبدا التصنيف الفرعي للدالة 
5هذه الدالة في ملف برمجة : 

Function Hex)INum As Long (As String 

Hex =VBA.Hex$)INum( 

"I"), "Hex =Replace)Hex, "A 

"y"), "Hex =Replace)Hex, "B 

"i"), "Hex =Replace)Hex, "C 

"j"), "Hex =Replace)Hex, "D 

">"), "Hex =Replace)Hex, "E 

">"), "Hex =Replace)Hex, "F 

End Function 

يمكنك استدعائها بنفس الطريقة: 

Dim ICounter As Long 

For ICounter =0 To 15 

Print Hex)ICounter( 

Next 


الاهرام الكائنية 


عندما تصبح مبرمج أسنادي التوجهء فان نظرتك الى عملية بثاء وتصميم البرتامج 
تنتطلق من محور 1 ثناته ولیس اآواده» مجموعة الكائنات التي تصممها تسمى 
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الخاصة ببرنامجحك. فلو تنظر الى معظم البرامج كعااrarcا Hi‏ ctعز0b‏ الاهرام الكائنية 
.. llخ Î aيرlجتلl Microsoft PowerPoint «Microsoft Excel «Microsoft Word ol‏ 
.. الخ تلاحظ ان لکل منتج او عنصر 0٥۸0ء‏ 0۸40ء 0i۲ ct×‏ حتی تقنیات اخری آ 
من ھؤلاء اهرام أسنادية خاصة به مرتبط بعضها ببیعض . 
بناء اهرامك الكائنية الخاصة بك امر في غاية الاهمية وآل ما يلزمك هو الترآيز في 
تصميم الهرم الكائني وليس في اآواده» فالتصميم الجيد هو العامل الرئيس لنجاح 
هرمك الکائنيء» اما اآواده فتأتي في المرحلة التالية . مع ذلك اساليب التصميم 
واعداد المخططات الاولية لانشاء الهرم الكائني خارج نطاق الكتاب» ولكن سأجهزك 
هنا بكل ما تحتاجه لبناء الاهرام الكائنية وسأبدا بالعلاقات بين الفئات. 
العلاقات بين الفئات 
يوجد نوع من العلاقات تسمى "يحتوي على 00۴ في عالم البرمجة أسنادة التوجحه 
" وقد ذآرتها في فقرة "الوراثة" في هذا الفصل. الهدف من هذه العلاقة هو ة كج۸ 
ربط الفئات بعضها ببعض حتى تتمكن من بناء هرم أسنادي . طريقة الربط تتم بسهولة 
شديدة» فكل ما عليك القيام به هو تعريف أسناد من فئة اخرى في داخل الفئة 
حتى تصل الى اعضاء الفئة الاخرى. يوجد نوعين من علاقة "يحتوي على" هما: 
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: الى 1 علاقة 
هي علاقة بين فئة س وفئة ص تربطها أسنادات موجودة في الفئة 1 الى 1 علاقة 
واردنا ربطها بالفئة ٤٤2۲‏ س لتصل الى اعضاء الفئة ص» فمتلا لو أن لدينا الفئة 
bj 0w ner‏ بحيت تمتثل مالك السيارة وسائق السي ارة فقد تضیف خاصتیين ۲€۲50۸] 
وتكتب شيئا مثتل: C٤3۲‏ في الفئة 0۲1۷٥۲‏ ز05 و 
Ca‏ 'الفئة 
Public objOwner As CPerson‏ 
Public objDriver As CPerson‏ 
Public sCarModel As String‏ 
.- 6وبھا تکون قد آونت علاقة في الهرم الكائني البسيط جدا شكل 
: هرم آسنادي بسيط يبين العلاقة بين أسناداته.1- 6شكل 
۴٤‏ Mمثل‏ مكتبة »-فئة 200 طبعا اذا أن الهرم الكائني يحتوي على اآثر من 
فسيكون التصميم آما في الشكل السابق امر في غاية الاهمية ويصبح ll‏ 
Person‏ وCCar‏ على التصمیم اآثر من انجاز الاآواد . اما اذا اردت استخدم الفئات 
Dim Turki As New CPerson‏ 
Dim Abbas As New CPerson‏ 
Dim BMW As New CCar‏ 
urki.sName‏ = "ترآي العامري” 
Abbas.sN ame‏ = ”عباس السریع” 


BMW.sCarModel ="BMW -7” 

Set BMW.objOwner = Turki 

Set BMW.objDriver =Abbas 

وانت في داخل e۲‏ ۷ا5 زه و bj 0wner‏ بل يمكنك الوصول الى اعضاء الكائن ات 
> فقد تضيف طريقة الى الفئة لطباعة اسم المالك والسائق: C٤2۲‏ الفئة 

۳۲) 'تعريف طريقة في الفئة 

Public Sub PrintRelatedPeople )frmForm As Form( 

Me.sCarModel & “”:JıgnlJl " frmForm.Print 

Me.objOwner & ”“:dJloJ|l " frmForm.Print 

Me .objDriver & ”:JقئlwJl‎ " frmForm.Print 

۱ End Sub 

برمجة ممتعة للغاية واقرب الى العالم الحقيقي 00۲ فعلاء البرمجة اسنادية التوجه 

من البرمجة الاجرائية المعقدة. 

الى ن: 1 علاقة 

قد تكون هناك اآثر من علاقة بين نفس الكائنات لتمتل علاقة اآثر تعقيدا تعرف 

الى ن» حيث يحتوي الكائن على مجموعة اسنادات من نفس النوع . فلو 1 بعلاقة 

لها مالك واحد CCar‏ عدنا الى المتال السابق» سنلاحظ ان السيارة الواحدة 

> نستطيع تطوير اسناد السائق بحیيث يمكن 05[0۲1۷€۲ و سائق |د objOWner‏ 

ولد نعمة ! قد تستخدم اس لوب المصفوفات-للسيارة ان يكون لها اآثر من سائق 

اما في الكود التالي: 0۲1۷6١‏ زط0 لتعيد تعريف الكائن 

Ca‏ 'الفئة 

Private m_objDrivers )5 (As CPerson 

Public Property Get objDriver )JiDriverNum As Integer (As CPerson 

Set objDriver =m_objDrivers )iDriverNum ( 

End Property 

Public Property Set objDriver )JiDriverNum As Integer, ByVal objNewValue As 

CPerson( 

Set m_objDrivers )JiDriverNum = (objNewValue 
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End Property 

بامكانك الوصول الى هذه الخاصية بكتابة شيئا مثل: 
Set BMW.objOwner = Turki‏ 

Set BMW.objDriver )O0 = (Abbas 

Set BMW.objDriver )1 = (Ahmed 

Set BMW.objDriver )2 = (Ali 


based ¡1‏ Arrayالى‏ ن مبنية على المصفوفات " 1 يعرق النوع السابق بانه "علاقة 
الى ن مبنية 1 افضله آثيرا- يعرف "بعلاقة-« ويوج giع‏ |خر to many relationship‏ 
> حيث تكون الخاص ية based 1 to many relationship‏ Arrayعلى‏ المجموعات " 
بدلا من مصفوفة: ١٥ا)ءع‌اام٣)‏ عبارة عن مجموعة۴۲ع0bjD5i۷‏ 

Ca‏ "الفئة 

Public objDrivers As New Collection 

مباشرة: 05۲1۷8۲ بامكانك اضافة الكائنات الى الخاصية 

BMW.objDrivers.Add Turki 

BMW.objDrivers.Add Ali 

Each‏ ... ۴0 باستخدام حلقة : 5۲۷٥۲‏ زط او حتى الوصول الى آافة عناصر الخاصية 
Dim objDriver As CPerson‏ 

For Each objDriver In BMW.objDrivers 

Print objDriver.sName 

Next 

المشكلة في العلاقات المبنية على المجموعات تظهر عندما نعلم ان المجموعة 
يمكنها ان تحمل اي نوع من القيم» فهذا الكود سيتم تنفيذه ١0۲1۷€[ط0b(الخاصية)‏ 
Dim BMW As New CCar‏ 

Dim Mercury As New CCar 


BMW. bj Drivers. Add Mercuty‏ 'سائق السيارة هي سیارة اخری! 

Persons Coااection Class‏ والحل يتم بانشاء فئة خاصة تسمى فئة المجموعة 
لها طرق وخصائص قياسية يتبعها آل المبرمجين وجميع المكت بات والكائنات 

آما في CK0۷‏ و لغات البرمجة الاخرى المتوافقة مع ٤أكة8‏ اةاءا۷ المتوفرة في 
الفقرة التالية. 

Collection Classes‏ فئات المجموعات 

فئات المجموعات ما هي الا فثات عادية لكن لها خصائص وطرق قياسية عليك 

> وان اصررت ككها€ «هآاعم‌اام اكتباعها حتى يطلق على الفئة اللقب "فثة مجحموعة" 
على عدم أكتباع هذه المواصفات القياسية للفئة» فارجو ان تعود الى رشدك وتلين 
۷M‏ عنادك قليلا. فجميع الفئات المنجزة بلغات البرمجة المختلفة والداعمة لتقنية 
Basi‏ ا۷isuaتتبع‏ هذا الاسلوب بما فيهم . 

اول قاعدة عليك معرفتها هي ان فئة المجموعة تمت ل مجموعة لكائنات معينة 
يمكن ان تكون تابعة لفئة C۴٥۲5070‏ ". فالفئةكونمييزها عن فئة الكائنات بالحرف " 
Persons)مجموعة‏ باسم . 

واأكتب هذا الكود C۴٠۲0١5١‏ انشئ فئة جديدة وسمها C۴٠۲50۸5‏ اما لبناء المجموعة 
ectionsااoالمحاآي‏ لطرق وخصائص المجموعات : 

Persons‏ 'فئة المجموعة 

Private m_Col As New Collection 

Public Sub Add)objNewItem As CPerson, Optional vKey As Variant, _ 

Optional vBefore As Variant, Optional vAfter As Variant( 

m_Col.Add objNewlItem, vKey 
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End Sub 

Public Sub Remove)vIndexKey As Variant( 

m_Col.Remove vIndexKey 

End Sub 

Public Property Get Count ()As Long 

Count =m_Col.Count 

End Property 

Public Property Get Item)vIndexKey As Variant (As CPerson 

Set Item =m_Col)vIndexKey( 

195 

End Property 

Add-1 "ns ةامسملا€اass Builder Utility‏ ملاحظة: تستطيع استخدام الاضافة 
لتسهيل عملية كتابة طرق وخصائص فئة المجموعة تلقائيا ومن ثم 

الى ”oاectااCo‏ من 5res‏ زطbه‏ وتغيير نوع الكائن 0٤2۲‏ بامكانك الانتقال الى الفئة 
:CPersons‏ 

Public objDrivers As New CPersons 

بنفس الطريقة السابقة وان شیا لم €۴€۲50۳۸ و C٤3۲‏ والان استخدم الفئات 
Dim BMW As New CCar‏ 

Dim Driverl1 As New CPerson 

Dim Driver2 As New CPerson 


Ir 


Driver1.sName‏ = "محمد 
Driver2.sName‏ = "عبدالڵa"‏ 


BMW.objDrivers.Add Driver1 

BMW.objDrivers.Add Driver2 

ضرورة الالتزام بالمعايير القياسية: 

في بداية الفقرة اآدت على مسألة الالتزام بالمواصفات والمعايير القياسية لفئات 
المحموعات. وقد قمنا بعملية محاآاة لمعظم طرق وخصائص المجموعات آما 
التابعة 118۳ ينبغيء ولكن بقيت نقطتين بودي توضيحهاء الاولى تتعلق بالخاصية 
Default Property‏ . فيجب ان تكون الخاصية الافتراضية 5١۲50عC۴‏ للمجموعة 
بحث يمكن للمبرمج تجاهلها: ك”مء۲مC۴‏ للمجموعة 

196 

Print BMW.objDrivers.Item)1.(sName 

Print BMW.objDrivers)2.(sName 

آما ذارت في ءعاںط|ا Procedure At‏ بامكانك عمل ذلك عن طریق صندوق الحوار 
00Pالفصل‏ السابق "البرمجة اسنادية التوجحه ." 

مع ۸ع ... ۴٣‏ اما النقطة التانية التي اود ان اذآرها هي قابلية استخدام الحلقة 
> فلو أكتبت هذا الكود: ٤۴٠۲50٩5‏ المجموعة 

Dim objDriver As CPerson 

For Each objDriver In BMW.objDrivers 

Print objDriver.sName 

Next 

ليست مدعومة في ۴١۴١ ... ٤2٤۸‏ رسالة خطأء لان الحلقة ة8 اقuءا۷ا‏ سيظهر لك 
لذلك عليك كتابة الكود ۹ في المجحموعة ئC۴8۲50۸‏ مجموعتنا الجديد 
:CPersons‏ 
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Public Property Get NewEnum ()As IUnknown 

Set NewEnum =m_Col]._NewEnum[ 

End Property 

في صندوق ۴۸1۳ع" التابعة للاجراء 10 re‏ duععهاP‏ - في الخانة4 وكتابة القيمة 

Procedure Attributes رlaتخ+خlێl‎ ııızتو‎ Hide this member <‏ الحوار 

Persons‏ مع المجموعة . 2۸ع ... ۴0٣‏ وتكون بذلك قادر على استخدام الحلقة 

. تعدیل مواصفات الاجراء‎ :NeWwENnum 

ملاحظة: استيعاب الخطوات السابقة خارج نطاق الكتاب. لانه يتطلب فهم 

والخاصة LE Automa i07‏ التابعة ل K0M‏ البنية الترآيبات لمكونات 

او بالتحديد الواجهة ۸0۷١‏ )"ل1 بواجهات المكونات آالواجهة 

. اذا اردت مزيد من التفاصيل المتقدمة ح>Ja IEnumVariant lia‏ 

الموضوع انصحك بكتاب: 

Advanced Visual Basic 6 

Power Techniques for Everyday. Program 

By :Matthew Curland 

ISBN :0-201-70712-8 

فيفضل €2 و C۴ersons .€۴€۲50٩‏ اخيراء اذا اردت اعادة رسم الهرم الكائني 

استخدام لون يميز فئات المجموعات عن الفئات العادي فهو الاسلوب 

التي رأيتها.المتبع في ملفات التعليمات ومواقع الانترنت 

. الهرم الكائني بعد اضافة المجموعة‎ :C۴ersons 

حقيقي ٤ئ82‏ اقناءأ۷ بهذا اآون قد انتهيت من تشييد بنية اساسية لتكون مبرمج 

Basic‏ اVisua‏ بعدما تطرقت الى المبادئ والاساسيات التي لابد على آل مبرمج 
. وهذه نهاية الجزء الاول اوج6 اتuاءا۷‏ من معرفتها واتقانها للابحار في برمجة 

"الاساسيات" من هذا الكتابء والان بامكانك تعليم نفسك ذاتيا اما بالحصول على 

كتب متخصصة في مجال معين» او قراءة مقالات متقدمة. 


تم بحمد الله و نعمته 
أعداد المبرمج:مشتاق طالب رشيداالعامري 
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